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Editor's 

Introduction 

Your computer is waiting to challenge you. Moving graphics 
games, brain stretchers, word games and puzzles are all here 
and ready to entertain you. 

A wide variety of games are included in this book. The 
programs have been written by some of the most talented 
young programmers working in this country at the moment, 
and represent a variety of approaches to solving program¬ 
ming problems. 

An examination of the listings should teach you many 
tricks and techniques to apply to your own programming. 
And once you have mastered the programs in their present 
form, you might want to try your hand at improving them. 
There is no such thing as a "perfect program," so these 
games are sure to benefit from your programming skill. 

All that now remains is for you to turn the page and enter 
the programs. I can only hope that you enjoy playing the 
games as much as we did when preparing this volume. 

TIM HARTNELL, series editor 

London 
March 1983 
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Author's 

Introduction 

I have tried in this book to give as many programs as possible 
which fully use the capabilities of the Atari 400/800 home 
computers. Many of the programs use redefined character 
sets, some use a fine capability of the Atari computers called 
player-missile graphics. 

I hope you enjoy playing the games, though you will 
benefit much more if you look at the listings and try to see 
how they work. Moreover, you can take ideas from these 
programs and use them in your own programs. 


PAUL BUNN 

Keynsham, Avon 
January 1983 





SKYDIVER 


(Uses the Joystick) 


This program uses redefined characters and player-missile 
graphics. The object of the game—which should not be 
played by anyone scared of heights!—is to get the highest 
score possible in 10 jumps. 

Your plane flies across the top of the screen: to jump out 
you press the red trigger button, and you will then descend 
at a rapid speed. When you wish to slow up, pull the joystick 
down and your 'chute will open. You receive bonus points if 
you manage to land safely on the landing pad. This bonus 
depends on when you open your parachute—the later you 
open it the better your score will be. Below a certain point, 
however, you cannot open the 'chute. A score of around 
12,000 is reasonable. 
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19 REf‘l U SKY DIUER - WRITTEN BV « 

20 REP1 tt PAUL BUNN DECEfIBER 1982 ** 

25 IF PEEKX203>=F'EEK< 106>-8 THEN 40 
30 80SUB 10000:REH INITIALIZATION 

40 Din PLANE# 1 ),HAN# 1 >, CHUTE# 1 >,BASE$ 
(1 >,LINE$< 1) 

50 PLANE*=CHR# ASC< >+128 >: P1AN*=" ! LI 
NE$=CHR#ASC< >+96 > 

55 FOR JUP1F-1 TO 10 

60 GRAPHICS 17:SETCOLOR 2,12,10:POKE 16, 
64:POKE 53774,64 

61 POKE 53277,3:REH * ENABLE PLAVER PlISS 
ILE GRAPHICS # 

62 POKE 559,46:REH * DOUBLE LINE RESOUJT 
ION FOR PLAYERS; * 

63 POKE 54279,F'EEK(204>:REP1 t TELL ANTIC 
WHERE PH GRAPHICS ARE IN RAH $ 

64 POKE 53256,3:POKE 53257,3:REH * QUAOR 
OUPLE SIZE FOR CLOUDS * 

65 POKE 704,8:POKE 765,14:REH * COLOUR F 
OR CLOUDS % 

66 X3= I NT( HND'l 0 >& 100 >+75: POKE 53248 , X3: R 
EH tt RANDOP1 HORIZONTAL POSITION FOR CLO 
UD 1 ** 

67 X4= I NT< RND< 0 >* 100 >+75: POKE 53249 ,X4: R 
EH U RANDOH HORIZONTAL POSITION FOR CLO 
UD 2 tt 

68 POKE 623,1:REH * SET PRIORITY BETWEEN 
PLAYERS AND PLAYFIELDS * 

69 POKE 53278,255:REH & CLEAR COLLISION 
DETECTION REGISTERS * 

70 POKE 756,PEEK<203 >:SETCOLOR 3,3,4:REH 
POINT TO NEW CHARCTER SET IN RAP] INST 

EAD OF ROP1 * 

80 X=1:BASE$="#":CHUTE*=CHR#ASC<"\" >+12 

85 REH PRINT BASE LINE ** 

90 FOR F-0 TO 19 
180 POSITION F',23 
110 PRINT #6iLINE$; 

120 NEXT P 

130 BASE=INT<RhCK 0>*16 >+2 
140 POSITION BASE,22 
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150 Y #6 i BASE* 

155 REP! PIOIN PR06RAPI LOOP tt 

160 POSITION X,0:? #6;PLANE*:POSITION X- 

1 , 0 :? # 6 i " 11 

170 X=X+1:IF X<19 THEN 190 
180 POSITION X-l,0:? #6;" "sX=l 
185 REP1 tt JOYSTICK ROUTINE tt 

190 S1 =ST ICK< 0 >: S2=STRI G< 0 > 

191 X3=X3-3:IF X3<28 THEN X3=220 

192 X4=X4+3sIF X4>220 THEN X4=2@ 

193 POKE 53248,X3:POKE 53249,X4 

200 IF riPN=6 AND S2=0 THEN GOSUB 1000 

205 IF P1AN=1 THEN LOCATE X2,V2,Z 

210 IF P1AN=1 THEN POSITION X2,V2:? #6iPlA 

m 


229 IF CHUTE=1 THEN POSITION X2,V2-1:? # 
6iCHUTE*:FOR F-l TO 100:NEXT P 

222 IF PEEKX 53252 H>0 OR PEEK< 53253 X >0 
THEN 2080 

225 IF V2=22 AND PIAN=1 THEN 2000 

230 0X=X2:X2=X2+< S1=7 >-(X2 >18> 

240 0V=V2:X2=X2-< S1=11)+(X2<1>:V2-V2+1 
250 IF SI = 13 AND f1AN=l AND CHUTE=0 AND V 
2<19 THEN CHUTE=1:FOR T=0 TO 50:SOUND 0, 
T,120,15:NEXT T:SOUND 0,0,0,0:C=V2 


255 IF P1AH=8 THEN 168 

268 POSITION OX,OV-l:? #6 j ,! m 

270 POSITION 0X,V2-l:? #6 i " " 

280 GOTO 160 

999 REP1 -U P1AN OPENS CHUTE t* 

1800 HAN=1:V2-2:X2=X 

1010 FOR F-30 TO 0 STEP -2:SOUND 0,P,120 

,15:NEXT P:SOUND 0,0,0,0:RETURN 

2000 IF 2=ASCX BASE*) THEN GOTO 3800 

2010 FOR 6=0 TO 255 

2820 SOUND 0,6,10,15:POKE 708,8 

2030 NEXT G 

2040 FOR 6=255 TO 0 STEP -3 
2058 SOUND 0,6,16,15:POKE 708,6 
2860 NEXT G 
2870 SOUND 0,0,0,8 
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2080 POSITION 0,0:POKE 708,104 
2090 ? #6i"» >> >SPLAT<< < <<" 

2095 ? #8i"SCORE:";SCORE 

2100 ? #6:? #6J"PRESS start TO PLAY" 

2110 POKE 53279,0 

2120 IF PEEK? 53279 X >6 THEN 2110 

2130 RUN 

3000 POSITION 0,0 

3010 IF CHUTE=1 THEN 3500 

3020 ? #8 i "YOU DID NOT HAVE" 

3030 ? #6 i "your chute open" 

3040 ? #6:? #6j" OHCH ..." 

3050 ? #6 

3060 FOR P=0 TO 150 STEP 2 

3070 SOUND 0,P,12,15 

3080 NEXT P 

3090 SOUND 0,0,0,0 

3100 GOTO 2095 

3500 ? #6j" we11 done ..." 

3518 ? #6;"YOU P1ANAGED TO LAND" 

3520 ? #6;"ON THE PHD WITH YOUR" 

3530 ? #6;"CHUTE OPEN ..." 

3540 POSITION 3,10:? #6 i “score:“ 

3550 B0NUS=C$75 
3560 FOR P=0 TO BONUS STEP 5 
3570 POSITION 9,10:? #6;SC0RE+P 
3580 SOUND 0,P*25,1@,15 
3590 NEXT P 
3600 SCGRE=SCORE+BONUS 
3610 SOUND 0,0,0,0 
3620 P1HN=0: CHUTE=0: NEXT .JUPIP 
3630 GRAPHICS 2:POKE 53248,0:POKE 53249, 
0 

3640 ? #6 i" YOU 1 UE SUCCESSFULLY" 

3650 ? #6j " LANDED 10 TI PIES" 

3660 ? #6 

3670 ? #6 i "your final score 
3680 ? #6i" "jSCORE 

3690 SETCOLOR 2,0,0 
3700 FOR P=5 TO 200 STEP 3 
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3710 FOR S=P-5 TO P+5 
3720 SOUND 0,0,10,15 
3730 NEXT 8 

3740 SETCOLOR 1,RNO<0>*15,8 
3750 NEXT P 
3760 SOUND 0,0,0,0 
3770 END 

10000 RRf1=PEEK< 106 >-S: fl=256*RflF1 
10010 GRAPHICS 0 

10020 SETCOLOR 4,9,2:SETCOLOR 2,9,2 
1003O PRINT CHR*<: 127>i"PLEASE WAIT A LIT 
TLE WHILE“ 

10040 PRINT CHRtt 127 "XXXXXXXXXXXXXXXXX 

XXXXXXXXX" 

10050 POKE 752,1:PRINT 

10055 REPS XX COPY CHARACTER SET FROPI ROf'l 

IN 10 RAH ZZ 

10060 FOR P=0 TO 1023 

10070 POKE H+P,PEEK< 57344+P > 

10080 SOUND 0 , PEEK':! 53770 >, 18,2 
10090 NEXT P:SOUND 0,0,0,0 
10100 READ X 

10110 IF X<0 THEN POKE 203,RAO:SOTO 1022 
0 

10120 FOR P=0 TO 7 
10130 READ V 
10140 POKE < XX8 >+A+P,V 
10150 NEXT P 
10160 GOT0 10100 

10165 REfl X* DATA FOR REDEFINED CHAR ACTE 

RS XX 

10170 DATA 1,153,189,153,126,60,60,66,12 
9 

10180 DATA 5,0,0,0,24,60,126,195,129 
10190 DATA 3,255,255,255,255,255,255,255 
,255 

10200 DATA 6,16,8,132,194,255,2,4,8 
10210 DATA -1 
10220 R=RAf1-S 

10225 REPS XX CLEAR OUT PLAYER HISSILE GR 
APHICS WEPIORY XX 
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10230 FOR F-512 TO 768 

10240 POKE R&256+P * 0:NEXT P 

10245 REH ** POKE IN DATA FOR CLOUD PLflV 

ERS tt 

10250 FOR P=@ TO 7 
10260 READ X 

10270 POKE R$256+70+P+512,X 
10280 POKE R*256+50+P+640,X 
10290 NEXT P 
10300 POKE 204jR 
10310 RETURN 

10315 REP1 ** DATA FOR P.H. GRAPHICS 
10320 DATA 16 #126#127* 255 *126* 62 *28 * 8 



TIC-TAC-TOE 


(Keyboard) 

This game, written by Roland Marriott, requires a machine 
with a 24K memory; it can be played either against the 
computer or a friend. To win you must get four squares of 
the same color in a row. 

There are four planes from left to right, labeled A, B, C 
and D. To make your move, first type a plane letter (A-D). 
Then enter two digits to correspond with the position on the 
plane. They are numbered left to right from 01 to 16, like 
this: ,_ r ___ 


13 

14 

15 

16 

09 

10 

11 

12 

05 

06 

07 

08 

01 

02 

03 

04 


Here are examples of moves, though you should note that 
RETURN does not have to be pressed: 


D15 

A05 

BIO 

C02 

B16 


When you are asked how many players want to play, press 
"1" if you want to play against the computer, otherwise press 
" 2 ." 
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0 repi 

1 REfl :i: 3D NOUGHTS AND CROSSES BV t 

2 REPI % ROLAND HARRIOTT $ 

3 REfi mmmmmmmmacm** 

4 GOSUB 3009 

5 DIH SPACE-164,2 >: DIP] H ARK-1 64 >: DIP1 BLOB< 
86,3 >: DIP] HZ<40) 

6 CL=0 

7 GOSUB 6000 

10 GRAPHICS 7+16:COLOR 1 
17 SETCOLOR 2,12,8:SETCOLOR 4,0,3 
18_SETCQL0R 1,4,8:SETCOLOR 8,2,6:SETCOLG 

20 FOR X=0 TO 129 STEP 43 
30 FOR V=95 TO 30 STEP -1 
40 PLOT X,V:DRAHTO X+30,V-30 
50 NEXT V 
60 NEXT X 

61_PLOT 0,23:DRAHTO 23,0:PLOT 0,27:DRAWT 

62 FOR RT=8 TO 86 STEP 43 

63 PLOT RT+41,95:DRAHTO RT+41,30:DRAHTO 
RT+71,0:PLOT RT+48,95:DRAHTO RT+40,38:DR 
AWT0 RT+78,8 

64 NEXT RT 

65 COLOR 0:SETCOLOR 4,9,2 

66 FOR Z=0 TO 129 STEP 43 
70 FOR V=91 TO 31 STEP -28 
72 FOR X=1 TO 31 STEP 9 

74 FOR 0=0 TO 1 

760 PLOT Z+X+0,V-A-X+3:DRAHTO Z+X+A,V-A- 

780 NEXT A 
858 NEXT X 
908 NEXT V 
950 NEXT Z 

1800 FOR P=1 TO 64:READ H,J 
1010 SPACEC P , 1 >=H: SPACE-: P , 2 >=J 
1812 NEXT P 

1015 IF PEEK-1764 >=255 THEN 1015 
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1016 CLOSE #1:OPEN #1,4,0,"K:":GET #i,N 
1817 IF W<65 OR W>68 THEN POKE 764,255:6 
OTO 1015 

1013 IF H=65 THEN N=8:IF M=66 THEN N=16: 
IF W=67 THEN N=32 
1019 IF W=S6 THEN N=16 


1020 IF W=67 THEN N=32 

1021 IF W=S8 THEN N=43 

1023 POKE 764,255 

1024 IF PEEK<764>=255 THEN 1024 

1025 CLOSE #5:OPEN #5,4,0,"K:GET #5,Z 

1026 IF Z<48 OR Z>49 THEN POKE 764,255:6 
OTO 1024 

1027 POKE 764,255 

1028 CLOSE #4:OPEN #4,4,0,"K:“:GET #4,NH 
:IF HH<48 OR WH>57 THEN POKE 764,255:GOT 
0 1027 

1033 REP1 FOR TR=0 TO 2 

1@34 SP=N+10*< Z-48>+HH—48:LOCATE SPACEC S 
P, 1 >,SPACE-! SP,2 >,GH: IF GHOG THEN GOTO i 


1035 CL=CL+i:IF CL=2 THEN CL=8 

1036 FOR R't-15 TO 0 STEP -1: COLOR (RV+CL 
+2 >:SETCOLOR 1,3,4 

1037 FOR TR=0 TO 2 

1038 PLOT SPACE 1 ' SP , 1 >+TR , SPACE< SP , 2 >-TR: 
DRAWTO SPACEC SP,1>+TR,SPACE-!SP,2 >-TR-3 

1039 NEXT TR:NEXT RV 

1040 CLOSE #1 

1042 FOR PQ=1 TO 64 

1044 LOCATE SPACE-:! PQ, 1 >, SPACEC PQ , 2 >, U 

1046 HARK< PQ >=U:NEXT PQ 

1050 C=CL+2 

1100 A=1:6=16:0=16:E=1:GOSUB 1400 
1105 A=1:B=61:D=1:E=4:GOSUB 1400 
1110 A= 1: B= 13: 0= 17: E=4: GOSUB 1400 
1115 A=4:B=16:0=15:E=4:GOSUB 1400 
1120 A=1:6=4:0=20:E=1:GOSUB 1400 
1125 A=13:B=16:0=12:E=1:GOSUB 1400 
1130 A=1:B=1:0=21:E=1:GOSUB 1400 
1135 A=13:B=13:0=13:E=1:GOSUB 1400 
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1140 0=16:B=16:D=11:E=1:GOSUB 1400 
1145 0=4:B=4:0=19 sE=1:GOSUB 1400 


1150 0= 1:B=49:D=5:E=16:GOSUB 1400 
1155 0=4:B=52:0=3:E=16:GOSUB 1400 
1160 0=1:B=4:0=4:E=1:GOSUB 1400 
1165 0=17:B=20:0=4:E=1:GOSUB 1400 
1170 0=33:B=36:0=4:E=1:GOSUB 1400 
1175 0=33:B=36:0=4:E=1:GOSUB 1400 
1180 0=49:B=52:0=4:E=1:GOSUB 1400 
1299 IF PL0VER=1 AND CLO0 THEN GOTO 150 
0:REP1 IF CL=0 THEN GOTO 1015 


1300 GOTO 1015 

1400 FOR PQ=fl TO B STEP E 

1410 IF nORKCPQ >=C AND PlflRKC PQ+D >=C AND 

HARK<PQ+2*D)=C AND P10RK<PQ+3*D>=C THEN 6 

OSIJB 1450 

1420 NEXT PQ 


1430 RETURN 

1450 PLOT SPACE*! PQ , 1 >+1, SPACE*: PQ , 2 >-1: DR 
ONTO SPACE*: PQ+3XD , 1 >+ i , SPACE*: PQ+3X0 , 2 >-1 
:RETURN 

1500 REP1 P1ACHINE LOGIC 
1600 FOR PQ=1 TO 64 

1605 LOCATE SPACE*: PQ, 1 >,SPACE*: F‘Q,2;*,U 

1606 IF 0=2 THEN 0=10 
1608 IF 0=3 THEN 0=50 
1610 NORKX PQ >=0: NEXT PQ 
1615 H=0 

1620 fl=1:B=16:0=16:E=1:GOSUB 1700 
1625 A=1:B=61:0=1:E=4:GOSUB 1700 
1630 A=1:B=13:D=17:E=4:GOSUB 1700 
1635 0=4:B=16:0=15:E=4:GOSUB 1700 
1640 A=1:B=4:0=20:E=1:GOSUB 1700 
1645 A=13:B=16:0=12:E=1:GOSUB 1700 
1650 A=1:B=1:0=21:E=1:GOSUB 1700 
1655 A=13:B=13:0=13:E=1:GOSUB 1700 
1660 A=16:B=16:0=11:E=1:GOSUB 1700 
1665 0=4:B=4:0=19:E=1:GOSUB 1700 
1670 0=1:B=49:0=5:E=16:GOSUB 1700 
1675 0=4:B=52:0=3:E=16:GOSUB 1700 
1680 A=1:B=4:0=4:E=1:GOSUB 1700 
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1 682 0= 1 7 :B=20: D=4 :E=1: 60SUB 1 760 
1686 H=33:B=36:D=4:E=1:GOSUB 1700 
1688 fl=49:B=52:D=4:E=1:GOSUB 1700 


1690 GOTO 1748 

1700 FOR PGNfi TO B STEP E 

1705 H=H+1 

1710 SUn=nfiRK< PQ HPIARKC PQ+O >+PlfiRKC PQ+2#D 
HP1ARKCPQ+3*D> 

1720 IF SUPN30 THEN GOTO 1830 

1725 BLOBCH,1>=SUH:BLOBCH,2 >=PQ:BLOB<H,3 

>=D 

1730 NEXT PQ:RETURN 

1740 FOR TZ=1 TO H:IF BLOBCTZ»1>=150 THE 
N GOTO 1850 

1745 NEXT TZ 

1746 VZ=0:FOR TZ=1 TO H 

1748 IF BLOB': TZ , 1 >=20 OR BLOBC TZ, 1 >=100 
THEN GOSUB I860 

1750 NEXT TZ: IF VZO0 THEN GOTO 1760 
1755 GOTO 2050 

1760 FOR TZ=1 TO VZ:FOR PZ=2 TO <VZ-1> 

1765 IF HZCTZ>=HZCPZ> AND TZOPZ THEN SP 
=HZC TZ >:GOTO 1035 

1766 NEXT F‘Z: NEXT TZ 

1770 IF VZO0 THEN SP=HZC VZ >: GOTO 1035 
1825 GOTO 2050 

1830 FOR TK=0 TO 3: IF PlfiRKC PQ+TK#D>=0 TH 
EN SP*PQ+TK*D:GOTO 1035 


1835 NEXT TK 
1850 REF1 DEFENCE 


1855 FOR TK=0 TO 3: IF PIARKC BLOBC TZ,2 >+TK 
*BLOBCTZ,3 > >=0 THEN SP=BLOBCTZ,2 HTK*BLO 
BC TZ,3 >: GOTO 1035 


1857 NEXT TK 
I860 FOR P=0 TU 3 

1863 IF PlfiRKC BLOBC TZ , 2 >+P*BLQBC TZ , 3 > >=0 
THEN VZ=VZ+1:HZC VZ>=BLOBC TZ,2 >+P$BLOBCTZ 

,3> 

1865 NEXT P:RETURN 
1890 GOTO 2050 
1950 GOTO 2050 
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2950 SP=INT<64*RND< 1)+1): IF HARK<SP>=0 T 

HEN GOTO 1035 

2055 GOTO 2050 

3000 REP1 CODER PAGE 

3020 GRAPHICS 2+16:SETCOLOR 4,13,2 

3030 POSITION 3,1: ? #6i "############### 11 

3040 POSITION 3,2:? #6;"# 3D NOUGHTS #" 

3050 POSITION 3,3:? #6i“# AND CROSSES #" 

3052 POSITION 3,4:? #6;"# BV ROLAND #" 

3054 POSITION 3,5:? #6i"# HAR RIOTT #" 

3070 POSITION 1,7:? #6;"PRESS start TO P 
LAV" 

3080 IF PEEK 1 ' 53273 >=6 THEN RETURN 
3090 GOTO 3080 

5000 DATA 1,83,10,84,19,75,28,66 
5010 DATA 1,73,10,64,19,55,28,46 
5020 DATA 1,53,10,44,19,35,28,26 
5030 DATA i,33,10,24,19,15,28,6 
5040 DATA 44,93,53,84,62,75,71,66 
5050 DATA 44,73,53,64,62,55,71,46 
5060 DATA 44,53,53,44,62,35,71,26 
5070 DATA 44,33,53,24,62,15,71,6 
5080 DATA 87,93,96,84,105,75,114,66 
5090 DATA 87,73,96,64,105,55,114,46 
5100 DATA 87,53,96,44,105,35,114,26 
5110 DATA 87,33,96,24,105,15,114,6 
5120 DATA 130,93,139,84,148,75,157,66 
5130 DATA 130,73,139,64,148,55,157,46 
5140 DATA 130,53,139,44,148,35,157,26 
5150 DATA 130,33,139,24,148,15,157,6 
6000 GRAPHICS 2+16:? #6i"2 HiJHAN PL AVERS 


6010 ? #6;"OR 1 HUHAN UERSUS me" 

6020 ? #6;" CTVPE 1 OR 2 >" 

6030 OPEN #1,4,0,"K:":GET #1,H:IF H< 49 0 
R H>50 THEN POKE 764,255:CLOSE #l:GuTO 6 


6040 PLAVER=H-48:CLOSE #1 
6050 RETURN 




RACE 


(Joystick) 


This game was written by Paul Dunning. In it you race against 
three other cars, all trying to cover as many miles as possi¬ 
ble. Use the joystick to maneuver your car through the 
course. By pressing the red fire button on the joystick you 
can shift gears. The program uses machine code, so SAVE it 
before attempting to RUN the program. 
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0 REfl » ROOD RACE - WRITTEN BV 

1 REP! tt PAUL DUNNING tt 

2 DI PI S< 4 > , G$< 19 ) , E« 1 @0 > 

3 GRAPHICS 5:6$="LON":POKE 752,1 

5 GOSUB 1000 

6 POKE 765,2:COLOR 2:PLOT 0,0:DRRWTO 79, 
0:PLOT 79,47:DRANTO 79,30:DRAHTO 0,70:PO 
SITION 0,47!XIO 18,#6,0,0,"S:" 

7 POKE 765,3:COLOR 3:PLOT 79,29:DRANTO 7 
9,1:DRAHTO 0,1:POSITION 0,29:XI0 18,*6,0 
, 0 , “S* 

8 POKE 712,148 

10 PP=PEEK<106 >-16: POKE 54279,PP 

20 PP!=PP$256: POKE 559,62 

21 FOR 0=53256 TO 53260:POKE Q,3:POKE Q- 
8,RND<1>*255:NEXT Q 

22 POKE 53248,100:POKE 53249,100:POKE 53 
250,100:POKE 53251,50 

23 POKE 704,109:POKE 705,89:POKE 706,79: 
POKE 707,29:POKE 53277,3:POKE 559,62 

24 FOR Q=Pf']+1024 TO PP1+2048: POKE Q,0:NEX 
T Q 

30 RESTORE 210: FOR Q=pn+1144 TO Pfl+1280: 
READ A:IF A=-l THEN 32 

31 POKE Q,A:NEXT Q 

32 RESTORE 210: FOR Q=PT1+1360 TO PH+1536: 
READ A:IF A=-l THEN 34 

33 POKE Q,R:NEXT Q 

34 RESTORE 210: FOR Q=Ffl+1576 TO PP1+1792: 
READ A:IF A=-l THEN 36 

35 POKE Q,A:NEXT Q 

36 RESTORE 210: FOR Q=PH+1842 TO Pfl+2048: 
READ A:IF A=-l THEN 40 

37 POKE Q,A:NEXT Q 
40 POKE 623,1 

50 SOUND 0,255,12,5:SOUND 1,145,12,5:SOU 
ND 2,200,12,5 

60 FOR Q=53256 TO 53260:POKE Q,3:POKE Q- 
8,RND<1>$255:NEXT Q 

70 POKE 704,109:POKE 705,89:POKE 706,79: 
POKE 707,29:POKE 53277,3:POKE 559,62 
75 ST=PH+1842: HG= I NT< ST.- 256 >: LH=ST-256*H 
G:POKE 203,LW:POKE 204,HG:POKE 205,10 



RACE • 31 


80 P1 =C RND< 1 ?t 180 >+100: P2=C RHD< 1 ?* 100 >+1 

00:P0=< RNDC1>*100 >+100:P3=50 

85 FOR Q=0 TO 3: S< 0 >=C RND< 1 >$2 >+1: NEXT Q 

87 POKE 53248,P0:POKE 53249,PI:POKE 5325 
0 , F‘2: POKE 53251,50 

88 FOR Q=1 TO 50: X=USRC ADRC E$ > , 7 ): NEXT Q 
90 IF 6$="HIGH" THEN GOSUB 400:GOTO 120 
92 POKE 53278,1 

95 P0=P0+S<0 >:IF P0>255 THEN P0=0 
98 X=USRCfiDRC E$>,STICKC0 > > 

100 P1=P1+S<1>:IF PI>255 THEN P1=0 
105 X=USR<fiDRC E$ >,STICK< 0 > > 

110 P2=P2+S<2>:IF P2>255 THEN P2=0 

120 ni=ni+ 0 . 0 i 

124 X=USR<fiDRC Ef>,STICKC0 > > 

129 IF STRIGC 0 >=0 THEN GOSUB 500 

130 POKE 53248,P0:POKE 53249,PI:POKE 532 
50, P2 


35 puke 656, : puke 65 
":POKE 056,2:POKE G5 


"GEAR 

"NILES "iNI 


140 CF-PEEK< 53263 >:CS=PEEK<53255 > 

158 IF CPO0 THEN 600 
160 IF CSC>4 THEN 600 
190 GOTO 90 

210 DATA 64,228,238,238,238,238,78,68,22 

9,245,255,255,233,255,255,233,255,255,24 

5,229,68,78,238,238,238 

215 DfiTfi 238,238,64,-1 

300 C=INT< RND< 1 >#3 >: S< C >=< RND< 1 >^2 >+1: RE 

TURN 

4@0 PO=p0-<S< 0 >X2 >:IF P0C0 THEN P0=255 
405 X=USR< fiDRC Et- > , ST ICKC 0 > > 

410 P1=P1-<S< 1 >X2 >: IF P1C0 THEN PI =255 
415 X=USR<fiDRC E $>,STICKC @> > 

420 P2=P2-C SC 2 >:?:2 >: IF P2<0 THEN P2=255 
425 X=USRCfiDRC ET>,STICKC0> > 

430 NI=NI+0.05:RETURN 

500 IF G$="HIGH" THEN G$="LOW":SOUND 0,2 
55,12,10:SOUND 1,245,12,10:SOUND 2,235,1 
2,10:RETURN 

510 G#-= "HIGH": SOUND 0,100,12,10: SOUND 1, 
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110,12,10:SOUND 2,90,12,10:RETURN 
600 GOTO 640 

605 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2, 

0 , 0,0 


610 POKE 53248,100:POKE 53249,100:POKE 5 
3250,100 

620 TRAP 620: ? " ANOTHER GO INPUT G*: 
IF G$<:i,i>="V" THEN HI=0:G$="LOM":? CHRT 
(125 >:GOTO 24 


630 END 

640 J=PEEK< 203 >+256*PEEKX 204 > 

645 FOR Q=1 TO 250:IF PEEKCJ+Q>=0 THEN N 
EXT Q 

650 ST=J+Q: HG= I NT< ST-- 256 >: LH=ST-256*HG: P 
OKE 203,LW:POKE 204,HG 
655 FOR P=1 TO 60 


660 X=USR<1536 >:SOUND 1,PEEKX 53770>,120, 
15 

670 POKE 707,PEEK<53770):NEXT p 
700 POKE 53251,0:GOTO 605 
1000 RESTORE 2000 
1010 TRAP 1050:p=0 
1020 P=P+1:READ A 


1030 ET(P,P>=CHRT<A> 

1040 GOTO 1020 

1050 RESTORE 3000 

1060 TRAP 1090:P=1536 

1070 READ A:POKE P,A:P=P+1 

1080 GOTO 1070 

1090 TRAP 40000 

1100 RETURN 

2000 DATA 104,104,104,74,72,176,11,160,0 
,177,203,136,145,203,200,200,208,247,104 
,74,72 

2010 DATA 176,11,160,0,177,203,200,145,2 
03,136 

2020 DATA 136,208,247,104,74,72,176,7,19 
8,205,165 

2030 DATA 205,141,3,208,104,74,176,7,230 
,205,165,205,141,3,208,96,END 
3000 DATA 104,160,0,173,10,210,145,203,2 
00,192,25,208,246,96,END 




LUNAR 

LANDING 


(Joystick) 

This game was also written by Paul Dunning. You use the 
joystick to land on the blue landing pad and score maximum 
points for a slow, gentle landing (say, a vertical speed of 5). 
You will crash if you are going too fast. 

If you land, your score will depend on how slow your 
vertical speed was and on which landing pad you alighted. 
You are then given 500 extra fuel units and the game begins 
again. The game ends when you run out of fuel. 



0 REm tt LUNAR LANDER BY PAUL DUNNING 

1 DAT A 1@8,60,81,40,53,48,60,46,64,40,72 
,40,40,40,53,40,60,40,64,40,72,40,40,40, 
53,40,60,40,64,40,60,40,72,60 

2 DATA 108,60,96,80,60,40,64,40,72,40,81 

33 
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, 80 j72j 48,64 , 40,72, 60 , 96 , 40 , 85 ,40 , 53, 80 , 
40 , 40 , 45 , 40 * 50 , 40 , 53,40 , 60,40 


3 DATA 68,40, 72 , 40,81,40,53,80,-1 

4 CLR : DI fl A$< 100 ) , H$< 11 > , E$< 60 >: H$= “ a 
tari":POKE 752,1:HI=500 

5 AA=1:FU=4000:TI=100:SC=@:HU=8:UU=HU:PO 
KE 53278,l:GOSUB 900:6OSUB 4000 

6 DATA 11,12,13,13,14,15,17,19,21,22,23, 
23,24 

7 DATA 25,26,29,30,31,33,33,33,33,33,33, 
31 


8 DATA 31,30,29,28,26,25,25,24,23,21,18, 
16,15 

9_DATA 14,14,14,15,17,19,21,23,24,25,26, 

10 DATA 29,29,29,29,27,26,26,25,26,27,28 
,28 


11 DATA 27,26,25,25,23,23,23,23,23,23,23 
,21,21 

12 DATA 20,18,17,17 

29 FOR 1 = 1 TO 8:POKE 53247+1,0:NEXT Is GO 
TO 495 


30 END 

120 REH POKE 53248,30 

200 REfl rmttPLAVER SETUP ***** 

210 POKE 559,0:POKE 710,148:POKE 712,0 
215 POKE 752,1:AL=110 

230 RESTORE 235:FOR S2=l TO 60:READ S3:E 
$< S2,62>=CHR$<S3 >:NEXT 62 

235 DATA 104,104,104,74,72,176,11,160,2, 
177,203,136,145,203,200,200,208,247,104, 
74,72 

236 DATA 176,11,160,253,177,203,200,145, 
203,136 

237 DATA 136,208,247,104,74,72,176,7,198 
,205 

238 DATA 165,205,141,0,208,104,74,176,7, 
230,205,165,205,141,0,208,96,0,0 


240 A=PEEKX 106>-16:POKE 54279,A:POKE 204 
, A+4: POKE 203,0: PITBASE=A*256 


250 POKE 53277,3:POKE 704,40:POKE 53248, 
150:POKE 205,RND<1 >% 130+70:POKE 53256,0 
260 FOR I =PP1BASE+1024 TO PHBASE+1280: POK 
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E 1,0:NEXT I 
270 RESTORE 290 

280 FOR I=FflBASE+l 155 TO PF1BASE+1209: REA 

- D BSPOKE I,B:NEXT I 

290 DATA 3,3,60,60,126,126#195,195,126,1 
26,60,60,24,24,126,126,165,165 
300 DATA 165,165,165,0,0,0,0,0,0,0,0,0,0 
- 1 ,0,0,0,8,0,0,0 

310 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0 

- 320 POKE 559,62:GOTO 390 
370 ST=STICK<0> 

380 CO=PEEK<53252>:IF CO>0 THEN GOSUB 5@ 
0 

^ 385 POKE 53278,1 

390 IF AA=1 THEN FOR Q=@ TO 100:A=USR<AD 
RCE$ >,14 >:SOUND 0,255,8,15:NEXT Q:AA=0:A 
_ =IJSR< ADR< E$ > , 11 >: SOUND 0,0,0,0 

400 POKE 53278,3 

410 IF ST =14 AND FU>=30 THEN SOUND 0,255 
,8,15:GOTO 420 

- 415 SOUND 0,0,0,0 

420 IF ST=7 OR ST=U AND FU>=5 THEN SOUN 
D 1,100,8,3:GOTO 430 
425 SOUND 1,0,0,0 

430 IF FU<=@ THEN FU=0:GOTO 455 

431 IF ST=7 THEN HU=HU+0.05:FU=FU-5 

432 IF ST=11 THEN HU=HU-@.@5:FU=FU-5 

- 440 HP=HP+HU:IF HP>1 THEN HP=0:SR=7 
450 IF HP<-1 THEN HP=0:SR=11 

455 UU=UU+0.02:UF-UP+UU:IF UP>1 AND SR=1 
5 THEN UF-0:SR=13:AL=AL-1 
' 456 IF UP>1 AND SR=11 THEN UP=8:SR=9:AL= 

AL-1 

457 IF UP>1 AND SR=7 THEN OP=0:SR=5:AL=A 

- L-i 

458 IF UP<-1 THEN UP=0:SR=14:AL=AL+1 
460 IF ST=14 AND FU>29 THEN UU=UU-0.05:F 
IJ=FU-30 

- 480 A=USRCADR< E $>,SR >:SR=15 

485 ? 11 SCORE=" iSCi “ " iCHR$< 127 >i " DUEL 
="iUUX 1 00 i" 
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486 ? " FUEL =";FU;" ";CHR$<127);" HUEL 
= %-HW100j" 

487 ? " TI HE ="; I NT< TI > i “ " i CHR$< 127 > s" 
ALT = ,i jALj" " 

488 ? CHF;$< 28 > ,- CHR$< 28 > i CHR$< 28 > ; 

483 TI=TI-0.1 

430 IF TI=0 THEN 720 
432 GOTO 370 
435 GOTO 210 

500 IF 80=4 AND W<0.5 THEN 600 
505 IF C0=4 AND UU>0.4 THEN 700 
510 IF CQ=2 THEN 700 
520 RETURN 

600 FOR Q=1 TO 2:FOR H=255 TO 100 STEP - 
1 

610 SOUND 0 , H , 10,15:SOUND 1, W-10,10,15: S 
OIJND 2,W-20, 10j 15 
620 NEXT N:NEXT Q 

630 SS=0.5-UU:SO=SC: IF SS-0 THEN SC=SC+5 
@:60T0 658 

640 IF AL<5 THEN SC=SC+< SSX1@0 10:GOTO 

650 

642 IF ALC20 THEN SC=SC+< SSX100 >X20:GOT0 
650 


644 IF AL<60 THEN SC=SC+<SSX10O>X5 
650 IF FLK2500 THEN FU=FU+<SC-S0X2> 

655 FOR Q=0 TO 3:SOUND Q,0,0,0:NEXT Q:AA 
=1:POKE 53278,lsGOSUB 800:GOTO 210 


700 FOR 0=0 TO 50:POKE 712,RND<1>*255:S0 
UNO 0,255,8,15:SOUND 1,240,8,15:SOUND 2, 
220,8,15:NEXT Q 


705 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2, 
0,0,0 


706 IF FLK30 THEN FU=0:GOTO 720 


710 POKE 712,0:AA=l:GOSUB 800:GOTO 210 
720 POKE 712,0:GOTO 810 
800 UF-0:HF-0:HU=@:UU=@:TI=1@0:RETURN 
810 IF SC>HI THEN GOSUB 1010 


820 GRAPHICS 17:SETCGL0F: 4,1,0 
830 ? #6;" GAP1E OUER" 

835 ? #6:? #6i" HIGH SCORE "iHI 

836 ? #6:? #6 i " H$ 
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840 ? #e:? #6PRESS START " 

850 POKE 53248,0 

860 IF PEEKX 53279>=6 THEN RESTORE :GOTO 


870 GOTO 

860 

899 END 

900 REN 

INTRO 


910 

GRAPHIC 

:S 

7:SETCOLOR 4 

,1 

0: E=0 


920 

? #6 j " 


LUNAR LANDER 

" 




930 

? #6:? 

#6 

" BY P.DUNNING 

SEP.82" 


940 

? #6:? 

#6, 

" USE JOVST I Cl 

<0>" 



950 

? #6: ? 

#6 

“ u R 


" 



960 

? #6:? 

#6, 






970 

? #6;" 

let 

t < > r 

gt- 

it" 



980 

? #6 







985 

POKE s: 

246 

,0 





990 

READ Pi: 

IF 

Pl<0 THEN 998 





992 

READ P 







395 

SOUND E 

,n. 

10,15: FOR PF'= 

=0 

TO P: 

NEXT 

P 

997 

GOTO 990 






998 

? #6;" 


good luck" 





999 

FOR X=1 

TC 

13:FOR V=0 TO 

9 

TEP 20 

:SOUND O,t 

10, 

15: NEXT V:NE1 

^:t 

X:SOUND 0 

,0 

,0,0 

:RETURh 







1000 

RESTORE 1 

:GOTO 990 





10 io 

m=“ " 

:TI 

=30:GRAPHICS 

18 

: SETC 

3L0R 

4 

,1 ,M 

: ? #6i 1 


GREAT SCORE 

11 : 

? #6: 

'■.= 1: 

r l = 

1: Hi 

=sc 







1011 

? #6i 1 

a 

b c d e f 9 

h 

!i 



1012 

? *6 







1013 

? #6;' 

i 

J k 1 m n o 

P 

" 



1014 

? #6 







1015 

? #6,-" 

9 

r •=■ t u v w 

X 

" 



1016 

? #6 







1017 

? #6;" 

y 

z . - R 

E 

" 



1018 

POKE 3 

324 

3,0 





1020 

FOR Q= 

10 

TO 245:SOUND 

0, 

Q-10, 

3,15 

s 

OLIND 

1 ,Q,8, 

15: 

SOUND 2,0+10, 

8, 

15: NE 

<T Q 


1030 

POSITION 

*,Y:? #6 

": 

POSITION : 

;, 

V+l: 

? #e,- n x 

":P 

DSITION X+2,V 

+ 1 

: ? #6 

"X" 

P 
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OSITION X,Y+2s? #S;"XXX" 

1040 IF STICKX @ X >7 THEN 1050 

1045 POSITION X,V:? #S;" "sPOSITION X* 
V+l: ■' #6;" ":POSITION X+2,Y+1:? #6i" ":P 
OSITION X,Y+2:? #6;" 

1046 IF X>13 AND V=7 THEN X=1:V=1:GOTO 1 
050 

1047 IF X>13 THEN X=1:V=V+2:GOTO 1050 

1048 X=X+2 

1050 IF STICK*:0X>11 THEN 1060 

1055 POSITION X, V:? #6j“ "sPOSITION X, 
V+l:? #SPOSITION X+2,Y+l:? #6;" “:P 
OSITION X,Y+2s? #6;" 

1056 IF X<3 AND V=1 THEN X=15:V=7:GOTO 1 
060 

1057 IF X<3 THEN X=15:V=V-2:GOTO 1060 

1058 X=X-2 

1060 POSITION 6,10: ? #6;"TINE 11 i INK TI >; 
" ":TI=TI-0.1:IF TI=0 THEN 1100 
1065 FOR PP=0 TO 20:NEXT PP 
1069 IF STRIGC0 X>0 THEN 1080 

1071 LOCATE X+l,V+1,XX:IF XX=ASC<"E"> TH 
EN 1100 

1072 IF XX=ASC< "R" > AND LEN<H$»1 THEN H 
$=HfX 1, LEN< m >-1 >: GOTO 1080 

1073 IF LEN<H-4O>10 THEN 1080 
1075 m< LEN< HT >+1 >=CHR$( XX > 

1080 POSITION 4,11:? #6;H$;“ " 

1099 GOTO 1030 

1100 FOR 0=0 TO 3:SOUND Q,0,0,0:NEXT Q 
1110 RETURN 

4000 GRAPHICS 5 
4010 RESTORE 6:COLOR 2 
4020 FOR X=0 TO 79 
4030 READ V 

4040 PLOT X,39:DRAWTO X,V 
4050 NEXT X 
4060 COLOR 3 

4070 PLOT 18,32:DRAWTO 23,32 
4080 PLOT 50,28:DRAWTO 54,28 
4090 PLOT 67,22:DRAWTO 73,22 
4100 RETURN 





DECISION 

MAKER 


(Keyboard) 


This program will help you to make up your mind about 
something. First it asks how many options there are that you 
cannot decide between. Then it asks how many factors 
influence your decision (e.g. price, quality, size). You are 
then asked how you might rate a factor, which you do by 
typing in a number between 0 and 100. 

After all data is entered and all options are listed, the one 
that the computer thinks you should choose is shown in 
inverse video. 



39 
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10 KEH ** DEL-1 S I OH P1AKER 11 ** 

20 RED ** BV CHRIS CALLENDER ** 

£1 REP1 ** ADAPTED BV P.BUNN ** 

25 DIPI ATC32>:G0SUB 30: GOTO 80 
30 GRAPHICS 0 

40 SETCOLOR 2,8,2:SETCOLOR 4,8,2 
50 PRINT , "DECISION flAKER" 

60 print ,"**************" 

70 PRINT 
75 RETURN 

80 PRINT "HOW PI ANY OPTIONS TO CHOOSE FRO 
PI" 

82 TRAP 82:INPUT AT:0=UALCAT> 

90 PRINT "HOW HANV FACTORS INFLUENCE DEC 
ISION" 

100 TRAP 100:INPUT AT 
110 F=UALCAT> 

120 DIPI OTC 0*32 >, FTC F*32> 

130 OTC1>=" ":OTC 0*32>=" " : OTC2 >=0T 

140 FTC 1 >= " " : FTC F*32 >= " " : FTC 2 >=FT 

150 60SUB 30 

160 FOR A=1 TO 0 

170 ? "ENTER NAHE OF OPTION "iA 

180 TRAP 180:INPUT AT:TRAP 40000 

190 OTC C A-1>*32+1,C A-i>*32+31>=AT 

200 NEXT A 

210 SOSUB 38 

220 FOR A=1 TO F 

230 ? "ENTER NAHE OF FACTOR ";A 

240 TRAP 240:INPUT AT:TRAP 40000 

250 FTC C A-1>*32+1,C A-1>*32+31>=AT 

260 NEXT A 

£70 GOSIJB 30 

280 DIPT PK0,F> 

290 FOR A=1 TO 0 
300 FOR B=1 TO F 
310 GOSIJB 30 

320 ? "HOW WOULD YOU RATE "iFTCCB-l>*32+ 
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330 ? "ON THE ";0$<< fi-l>$32+1 A fi-l>$32+3 

340 INPUT U 
350 fKfl.B>=U 
360 NEXT B 
370 NEXT R 
380 GOSUB 30 

390 ? "HERE IS HHRT I THINK VOU SHOULD D 


490 
410 
420 
430 
440 
450 
460 
470 
480 
2+P.: 
$ < K: 
485 
2+P: 


FOR H—1 TO 0 
C=0 

FOR B=1 TO F 
C=C+PKfi.»B> 

NEXT B 

IF OTOP THEN TOP=C:NO=fl 
NEXT fl 

FOR fl=l TO 0 

IF fl=NQ THEN FOR P=1 TO 31:L=<fl-l>$3 
R$=G$< L , L >: K=RSC< HT >+ i 28: Of-C L , L >=CHR 
>: NEXT P 

H=NO THEN FOR P=1 TO 31:L=<fi-1>$3 
K=fiSCC OP-. LjL>)s IF K=i 60 THEN Ot< L,L> 


486 IF fl=NO THEN NEXT P 

490 ? 0$O;!fi-l >$32+1,< fi-l >#32+31 > 

500 NEXT fi 




SAFE 

CRACKER 


(Keyboard) 

This superb game was written by Terry Davies, and it re¬ 
quires a machine with a24K memory. 

The object is to get as many coins from Mrs. Warren 
Fitzdobody's safes as possible. To open a safe, you must 
guess three numbers correctly. You enter your first number 
when asked, and if you are within ± 5 of the actual number, 
you will hear the safe mechanism click. If you take more than 
10 guesses for any number, the alarm is triggered and the 
police will arrive (you will see the flash of their headlights 
through the window). 

If you get the first number right, proceed to number two 
and then three. If you manage to guess all three numbers 
correctly (a probability of 1 in 970,299) the safe will open and 
you will receive some coins. You then proceed to another 
room and try again. 

Luck is involved in this game, but so too is skill. The skill 
involves learning the logic to crack the safe. After playing 
this game, you may think twice before practicing this art for 
real! 

2 REP1 *i SAFE CRACKER - ’ tt 

3 REP1 ** WRITTEN BY TERRY DAUIES tt 

4 REn w*mm*m*m*mm*m** 

5 GRAPHICS 2:FLASH=0:P=10:DIF1 A$<5>,0$<3 

200>,CC 4 >,PT$C62>:TT=6 

10 POKE 70S,P+10:POKE 70S,145:POKE 752,8 

:POKE 712,145:POKE 710,145 

15 ? " press start “ 

20 POSITION 4,4:? #6;"SAFE CRACKER" 


42 
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25 POSITION 4,6:? # 6 ;"safe cracker”:GOSU 
B SOSO 

30 IF PEEK': 53279 >=6 THEN 1000 

35 p=p+ 0 . 1 :FLASH=FLASH+1:IF FLASH>50 THE 

N POKE 70S,P:IF FLASH>50 THEN POKE 703,1 

45:FLASH=-20:POKE 53279,0 

40 IF FLASH=0 THEN POKE 709,145:IF FLASH 

=0 THEN POKE 708,P:POKE 53279,0 

50 IF P<200 THEN 30 

1 000 GRAPHICS 7:PX=4:LC=4@:X= 8 :V=@ 

1005 GOSUB 5100 
1007 ? "PLEASE WAIT." 

1010 GOSUB 30000 

1028 FOR 1=0 TO 4:POKE 708+1,C<I>:NEXT I 
1030 GOSUB 5193 

1040 POKE 752,1:POKE 709,0:? :? “ HE 
RE IS THE SAFE...SHHHHHH!!!":FOR W=1 TO 
1500:NEXT W:? CHR$<125 > 

1043 ? " VOU BETTER PUT THE SIDE LIGHT 0 
N" : ? " THERE'S NO ONE AROUND.. PRESS STAR 
T":POKE 53273,0 

1045 IF PEEK-: 53273X >6 THEN 1045 

1050 POKE 709,202:? CHR*<125>i"THAT'S BE 

ITER VOU CAN SEE WHAT VOU":? "ARE DOING 

NOW":FOR W=1 TO 2000:NEXT W 

1055 ? CHR$<125>:GOTO 2000 

1060 GOSUB 6000 

1070 ? CHR$<125 >;"PRESS START TO HAUE AN 
OTHER CRACK" 

1071 POKE 710,30:FOR W=1 TO 200:NEXT W:P 
OKE 710,138:FOR W=1 TO 93:NEXT W:POKE 71 
0,143:FOR W=1 TO 250:POKE 710,133 

1072 FOR W=1 TO 39:NEXT WSPOKE 710,148:F 
OR W=1 TO 250:NEXT W:POKE 710,133:FOR W= 
1 TO 100:NEXT WSPOKE 710,148 

1073 FOR W=1 TO 250:NEXT WSPOKE 710,138: 
FOR W=1 TO 100:NEXT W:POKE 710,143 

1074 POKE 53273,0:IF PEEKC 53273 X >6 THEN 
1072 

1075 GOTO 1020 

2000 A= I NT (. RND< 1 >*81 >+10: B=INT< RNDC 1 >$31 

>+10: C= I NT< RNDC 1 >$81 >+10:.J=0 

2003 J=J+l:? " WHATS VOUR FIRST NUP1BER 
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1 TO 39 ":INPUT N:IF H>39 OR N<1 THEN 20 
03 

2005 IF J=li THEN GOSUB 3950:GOTO 1060 

2006 IF NOfi THEN 2008 

2007 GOSUB 3350:GOTO 2499 

2008 IF N>P-5 AND N<P+5 THEN GOSUB 3300: 
GOTO 2003 

2010 IF N>A+5 OR N<P-5 THEN GOSUB 4000:G 
0T0 2003 

2011 GOTO 2003 
2433 J=0 

2500 J=.J+1: ? "WHfiTS VOUR SECOND NUMBER" : 

INPUT N:IF N>99 OR N<@ THEN 2508 

2510 IF J=ll THEN GOSUB 3950:GOTO 1060 

2520 IF NOB THEN 2538 

2525 GOSUB 3350:GOTO 2399 

2538 IF N>B-5 HND N<B+5 THEN GOSUB 3900: 

SOTO 2500 


2535 IF N>6+5 OR N<B-5 THEN GOSUB 4000:G 

OTO 2500 

2540 GOTO 2580 

2393 J=0 

3000 ? “ WHfiTS VOUR THIRD NUPIBER": INPUT 
N:IF N>39 OR N<0 THEN 3808 


3005 J=.J+1 

3010 IF J=li THEN GOSUB 3950:GOTO 1060 
3020 IF NOC THEN 3038 

3025 GOSUB 3850:? "YOU HfiUE OPENED THE S 
flFE“:J=0: COLOR @:PL0T 41,30:DRfiWTO 3906 

3026 J=J+1: IF J>9 THEN 3023 

3027 DRfiWTO 41+JO 6: DRfiWTO 41+J,30: GOTO 
3026 

3028 C0= I NT< RND< 0 >£200 ;■+100: ? CHRT< 125 > i 

"WELL DONE , THERE WPS "iCOi" COINS IN": 
? "THRT SAFE ! !." 

3029 TT=TT+CO:? "NOW TRY THIS ONE.": 

FOR W=1 TO 1800:NEXT W:GOTO 1020 

3030 IF N>C-5 PND NCC+5 THEN GOSUB 3900: 
SOTO 3000 

3035 IF N>C+5 OR N<C-5 THEN GOSUB 4000:G 

OTO 3000 

3048 GOTO 3000 
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3858 FOR T=1 TO 100:SOUND 0,T,10,8:NEXT 
Ts? "VOIJ ARE RIGHT": SOUND 0 , 0 , 0 , 0 :RETURN 


3900 FOR S=20 TO 15 STEP -4:NEXT S:SOUND 
0,N,10,14:FOR H=1 TO 3:NEXT H:SOUND 0,0 
,0,0:RETURN 

3950 ? "BLIHEV ! ! VOIJ HfiUE SET THE ALAR 

H OFF":? "LETS SCARPER_THE POLICE ":R 

=0 


3960 ? "VOIJ NICKED ";TT;" COINS FROP1 THE 
SAFES"j:TT=0 


3998 FOR N=20 TO 15 STEP -4:NEXT N: SOUND 
0,N,10,14:FOR H=1 TO 33:NEXT H:SOUND 0, 

0,0,0:R=R+l:IF R=20 THEN RETURN 

3999 GOTO 3998 

4000 ? " VOU ARE WRONG TRV AGAIN !":R 
ETLIRN 

5100 DL=PEEK<560>+PEEK< 561>$256: PETNPEEK 
( 106 >$256:DAT=PEEK<DL+4>+256$PEEKCDL+5 > 


5108 RESTORE 5200:FOR P=1 TO 62:READ A:P 

Tt< P , P >=CHR$< A >: NEXT P 

5110 ST=DAT+V$LC+1NT<X-PX>:RETURN 

5199 GGSUB 5110:A=USRCADRC PT$ >,ST,ADR<D $ 
>,BVT,LIN,LC >:RETURN 

5200 DATA 104,104,133,204,104,133,203,10 
4,133,206,104,133,205,104,104,133,207,10 
4,104 


5210 DATA 170,104,104,133,208,164,207,13 
6,177,205 

5220 DATA 145,203,136,192,255,208,247,24 
,165 


5230 DATA 203,101,208,133,203,144,2,230, 
204,24,165,205,101,207,133,205,144,2,230 
5240 DATA 206,202,208,219,96 

6000 FOR J=1 TO 8:SOUND 0,47,10,8:FOR L= 
1 TO 100:NEXT L: SOUND 0,64,10,8:FOR L=1 
TO 100: NEXT L:NEXT J 

6001 SOUND 0,0,O,0:RETURN 

20000 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20001 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20002 DATA 0,0,0,12,0,0,0,0,0,0,0,0,0,0, 
0 

20003 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,195 
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, 0 

20004 DOTH 63,255,207,255,63,255,207,255 
,63,255,207,255,132,192,0 

20005 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20006 DfiTfi 0,0,0,0,0,0,0,0,195,12,63,255 
,207,255,63 

20007 DfiTfi 255,207,255,63,255,207,255,19 
2,132,132,0,0,0,0,0 

20008 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
20003 DfiTfi 0,0,0,135,12,63,255,207,255,6 

3,255,207,255,63,255 

20010 DfiTfi 207,255,192,132,132,0,0,0,0,0 

, 0 , 0 , 0 , 0,0 

20011 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,135 

,12 

20012 DfiTfi 63,255,207,255,63,255,207,255 
,63,255,207,255,192,132,132 

20013 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20014 DfiTfi 0,0,0,0,0,0,0,0,135,12,63,255 
,207,255,63 

20015 DfiTfi 255,207,255,63,255,207,255,13 
2,192,192,0,0,0,0,0 

20016 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20017 DfiTfi 0,0,0,135,12,63,255,207,255,6 

3.255.207.255.63.255 

20018 DfiTfi 207,255,192,192,192,0,0,0,0,0 

, 0 , 0 , 0 , 0,0 

20019 DfiTfi 0,0,0,0,0,0,63,255,207,255,13 
2,0,0,135,12 

20020 DfiTfi 63,255,207,255,63,255,207,255 
,63,255,207,255,192,192,192 

20021 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20022 DfiTfi 0,63,255,207,255,192,0,0,135, 
12,63,255,207,255,63 

20023 DfiTfi 255,207,255,63,255,207,255,19 
2,132,132,0,0,0,0,0 

20024 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,63,255, 

207.255 

20025 DfiTfi 132,0,0,135,12,0,0,0,0,0,0,0, 

0,0,0 

20026 DfiTfi 0,0,0,132,192,0,0,0,0,0,0,0,0 

,0,0 

20027 DfiTfi 0,0,0,0,0,0,63,255,207,255,19 
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2,0,0,195,12 

20028 DATA 63,255,207,255,63,255,207,255 

,63,255,287,255,132,192,192 

20023 DATA 0,0,0,0,0,0,0,0,0,3,255,255,2 

40,0,0 

20030 DATA 0,63,255,207,255,192,0,0,195, 
12,63,255,207,255,63 

20031 DATA 255,207,255,63,255,207,255,13 
2,192,192,8,0,0,0,0 

20032 DATA 85,85,85,85,32,0,0,12,0,0,0,6 

3.255.207.255 

20033 DATA 132,0,0,135,12,63,255,207,255 
, 63,255,207,255,63,255 

20034 DATA 207,255,132,192,132,0,0,0,0,0 
,85,85,85,85,32 

20035 DATA 0,0,12,0,0,0,63,255,207,255,1 
32,0,0,195,12 

20036 DATA 63,255,207,255,63,255,207,255 
,63,255,207,255,132,192,192 

20037 DATA 0,0,0,0,0,30,0,0,0,48,0,0,3,0 
,0 

20038 DATA 0,63,255,207,255,132,0,0,135, 
12,63,255,207,255,63 

20033 DATA 255,207,255,63,255,207,255,19 
2,192,132,0,0,0,0,0 

20040 DATA 80,0,0,0,132,0,8,3,0,1,35,85, 
85,80,8 

20041 DATA 0,0,0,135,12,63,255,207,255,6 

3.255.207.255.63.255 

20042 DATA 287,255,132,192,192,0,0,0,0,0 
,80,3,195,3,0 

20043 DATA 0,8,0,132,1,64,63,255,240,255 
,132,0,8,135,12 

28044 DATA 63,255,207,255,63,255,287,255 
,63,255,207,255,192,192,132 

20045 DATA 0,8,0,0,0,80,16,51,3,0,0,0,0, 
132,1 

20046 DATA 69,85,85,248,255,192,0,0,135, 
12,0,0,0,0,0 

20047 DAT A 0,0,0,0,0,8,0,0,192,132,0,0,0 
,0,8 

20848 DATA 80,4,132,12,0,0,0,0,48,1,69,8 

5.85.248.255 
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20043 DfiTfi 192,0,0,195,12,63,255,207,255 
,63,255,207,255,63,255 

20050 DfiTfi 207,255,132,132,192,0,0,0,0,0 
,80,85,132,48,0 

20051 DfiTfi 0,0,8,12,1,63,81,85,240,255,1 
32,0,0,135,12 

20052 DfiTfi 63,255,207,255,63,255,207,255 
,63,255,207,255,132,132,132 

20053 DfiTfi 0,0,0,0,0,88,68,3,132,0,0,0,0 
, 12,1 

20054 DfiTfi 63,85,85,240,255,132,0,0,195, 
12,63,255,207,255,63 

20055 DfiTfi 255,207,255,63,255,207,255,19 
2,132,192,0,0,0,0,0 

20056 DfiTfi 83,20,132,132,0,0,0,0,3,1,69, 
85,85,240,255 

20057 DfiTfi 132,0,0,195,12,63,255,207,255 
,63,255,207,255,63,255 

20058 DfiTfi 207,255,192,192,132,3,132,0,0 
,0,88,16,195,0,0 

20053 DfiTfi 0,0,0,3,1,63,85,85,240,255,19 
2,0,0,135,12 

20060 DfiTfi 63,255,207,255,63,255,207,255 
,63,255,207,255,132,192,192 

20061 DfiTfi 48,0,0,0,0,88,80,0,170,170,17 
0,170,170,170,134 

20062 DfiTfi 63,0,85,240,0,0,0,0,195,12,63 
,255,207,255,63 

20063 DATfi 255,207,255,63,255,207,255,13 
2,132,195,0,0,0,0,0 

20064 DfiTfi 88,64,132,0,88,2,64,0,0,2,69, 
85,85,240,255 

20065 DfiTfi 132,0,0,195,12,63,255,207,255 
,63,255,207,255,63,255 

20066 DfiTfi 207,255,192,192,240,0,0,0,0,0 
,88,76,12,192,88 

20067 DfiTfi 2,64,0,0,2,63,85,85,240,255,1 
32,0,0,135,12 

20068 DfiTfi 63,255,207,255,63,255,207,255 
,63,255,207,255,132,195,0 

20063 DAT fi 0,0,0,0,0,88,0,0,0,88,2,64,0, 
8,2 

20070 DOT fi 63,85,85,240,255,132,0,0,135, 
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12,0,0,192,0,0 

20071 DflTfl 0,0,0,0,12,0,0,0,240,192,0,0, 
0,0,0 

20072 DflTfl 88,0,0,0,88,2,64,0,0,2,69,85, 

85.240.255 

20073 DflTfl 192,0,0,195,12,63,255,255,255 
,63,255,207,255,60,15 

20074 DflTfl 207,255,207,0,0,0,0,0,0,0,88, 
0,@,0,38 

20075 DflTfl 2,64,0,0,2,69,85,85,240,255,1 
92,0,0,3,12 

20076 DflTfl 63,255,207,255,63,255,207,255 
,56,15,207,255,240,192,6 

20077 DflTfl 0,0,0,0,0,90,170,170,170,88,2 
,64,0,0,2 

20078 DATfi 69,85,85,240,255,192,0,0,3,12 
,63,255,207,255,63 

20079 DflTfl 255,207,255,56,15,207,255,0,0 
,192,0,0,0,0,0 

20080 DflTfl 85,85,85,85,88,2,64,0,0,2,74, 

255.255.240.255 

20081 DflTfl 192,0,0,3,12,63,255,207,255,6 
3,255,207,255,56,15 

20082 DflTfl 207,240,192,0,192,0,0,0,0,0,0 
,0,0,0,0 

20083 DflTfl 2,64,0,0,2,85,85,85,80,255,19 
2,0,0,3,12 

20084 DflTfl 63,255,207,255,63,255,207,255 
,56,15,207,12,3,192,192 

20085 DflTfl 0,0,0,0,0,0,0,0,0,0,2,64,0,0, 
0 

28086 DATfl 0,0,0,0,0,0,0,0,3,12,63,255,2 
07,255,63 

20087 DflTfl 255,207,255,56,15,192,0,3,192 
,192,0,0,0,6,0 

20088 DflTfl 0,0,0,0,0,2,64,0,0,0,0,63,255 
,207,255 

20089 DflTfl 192,0,0,3,12,63,255,207,255,6 
3,255,207,255,56,12 

20090 DflTfl 0,0,195,192,192,0,0,0,0,0,0,0 
,0,0,0 

20091 DflTfl 2,64,0,0,0,0,63,255,207,255,1 
92,0,0,3,12 
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29092 DAT A 0, 0,0, 0* 0,0,0,8,8,0,0,12,3,19 
2, 192 

20093 DATA 0,0,0,0,0,0,0,0,0,0,2,64,0,0, 

20094 DATA 0,63,255,207,255,192,0,0,3,15 
,255,255,255,255,255 

20095 DATA 255,255,255,251,12,60,255,195 
,192,192,0,0,0,0,0 

20096 DATA 0,0,0,0,0,2,64,0,0,0,0,63,255 
,207,255 

20097 DATA 192,0,0,3,12,0,0,0,0,0,8,0,0, 

11,0 

20098 DATA 12,12,3,192,192,0,0,0,0,0,0,0 
, 0,0,0 

20099 DATA 2,64,0,8,0,0,63,255,207,255,1 
92,0,0,3,12 

20108 DATA 0,0,0,0,0,0,0,0,11,8,12,12,3, 
192,192 

28101 DATA 0,0,0,0,0,0,0,0,8,0,2,64,0,0, 

20182 DATA 8,63,255,207,255,192,0,0,3,12 

, 0 , 0 , 0 , 0,0 

20103 DATA 0,0,0,11,12,12,12,3,192,192,0 
, 0,0,0,0 

20104 DATA 0,0,0,0,0,2,64,0,0,0,0,63,255 
,207,255 

20185 DATA 192,0,0,3,12,0,0,8,0,0,0,0,0, 

11,12 

28106 DATA 12,12,3,192,192,0,0,0,0,0,0,0 

, 0 , 0,0 

20107 DATA 2,64,0,0,0,0,0,0,0,0,0,0,0,3, 

12 

20108 DATA 8,0,0,0,0,0,0,8,11,12,12,12,3 
,192,192 

20189 DATA 0,0,0,0,0,0,0,0,0,0,2,64,0,0, 
0 

20110 DATA 0,0,0,0,0,0,0,0,3,12,0,0,0,0, 

0 

20111 DATA 0,0,0,11,12,12,12,3,192,192,0 
,0,0,8,0 

20112 DATA 8,0,0,0,0,2,64,0,0,0,0,0,0,0, 
0 

28113 DATA 0,0,0,3,12,0,0,0,0,0,0,0,0,11 
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29114 DATA 
,0,0,0 

28115 DATA 
12 

20116 DATA 
,192,192 

20117 DATA 
0 

20118 DATA 
0 

20119 DATA 
,0,0,0,0 

20120 DATA 
0 

20121 DATA 
,12 

20122 DATA 
,0,0,0 

20123 DATA 
12 

20124 DATA 
,192,192 

20125 DATA 
0 

20126 DATA 
0 

20127 DATA 

, 0,0,0,0 

20128 DATA 
0 

20129 DATA 
,12 

20130 DATA 
,0,0,0,0 

20131 DATA 
12 

20132 DATA 
92,252,63 

20133 DATA 
2,64,0,0,0 

20134 DATA 


12,12,3,192,192,0,0,0,0,0,0,0 
2,64,0,0,0,0,0,0,0,0,0,0,0,3, 
0,0,0,0,0,0,0,0,11,12,12,12,3 
0,0,0,0,0,0,0,0,0,0,2,64,0,0, 
0,0,0,0,0,0,0,0,3,12,0,0,0,0, 
0,0,0,11,12,12,12,3,192,192,0 
0,0,0,0,0,2,64,0,0,0,0,0,0,0, 
0,0,0,3,12,0,0,0,0,0,0,0,0,11 
12,12,3,192,192,0,0,0,0,0,0,0 
2,64,0,0,0,0,0,0,0,0,0,0,0,3, 
0,0,0,0,0,0,0,0,11,12,12,12,3 
0,0,0,0,0,0,0,0,0,0,2,64,0,0, 
0,0,0,0,0,0,0,0,3,12,0,0,0,0, 
0,0,0,11,12,12,12,3,192,192,0 
0,0,0,0,0,2,64,0,0,0,0,0,0,0, 
0,0,0,3,12,0,0,0,0,0,0,0,0,11 
12,63,255,192,192,0,0,0,0,0,0 
2,64,0,0,0,0,0,0,0,0,0,0,0,3, 
0,0,0,0,0,0,0,0,11,12,12,51,1 
192,195,195,15,192,0,0,0,0,0, 
0,0,0,0,0,0,0,0,3,12,0,0,0,0, 
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20135 DOTH 0,0,0,7,12,12*48*252,132,192, 

0 , 0 , 0 , 0,0 

20136 DfiTfi 0,0,0,0,0,2,64,0,0,0,0,0,0,0, 

20137 DfiTfi 0,0,0,3,0,63,243,252,255,63,2 
07,243,240,247,12 

20138 DfiTfi 207,248,15,192,48,0,0,0,0,0,0 

, 0 , 0 , 0,0 

20139 DfiTfi 2,64,0,0,0,0,0,0,0,0,0,0,0,0, 
0 

20140 DfiTfi 0,0,0,0,0,0,0,0,7,12,12,48,3, 
192,0 

20141 DfiTfi 0,0,0,0,0,0,0,0,0,0,2,64,0,0, 
0 

20142 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20143 DfiTfi 0,0,0,7,11,255,252,0,240,0,0, 

0 , 0 , 0,0 

20144 DfiTfi 0,0,0,0,0,2,64,0,0,0,0,0,0,0, 

0 

20145 DfiTfi 0,0,0,0,0,15,255,63,207,207,2 
43,252,255,55,2 

20146 DfiTfi 192,12,0,63,0,0,0,0,0,0,0,0,0 

,0,0 

20147 DfiTfi 2,64,0,0,0,0,0,0,0,0,0,0,0,0, 
0 

20148 DfiTfi 0,0,0,0,0,0,0,0,4,2,176,0,48, 

15.192 

20149 HfiTfi 0,0,0,0,0,0,0,0,0,0,2,64,0,0, 
0 

20150 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20151 DATA 0,0,0,7,0,172,0,0,0,240,0,0,0 

, 0,0 

20152 DfiTfi 0,0,0,0,0,2,64,0,0,0,0,0,0,0, 
0 

20153 DfiTfi 0,0,0,0,0,0,255,243,252,252,2 

52.255.63.199.192 

20154 DfiTfi 40,0,3,0,12,0,0,0,0,0,42,170, 
170,170,170 

20155 DATA 170,170,170,165,85,85,85,85,8 
5,85,255,255,255,0,0 

20156 DfiTfi 0,0,0,0,0,0,0,0,4,51,10,0,0,0 

20157 DfiTfi 0,0,0,0,0,0,0,0,0,0,2,64,0,0, 
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0 

20158 DfiTfi 
20153 DfiTfi 
, 00 , 0 
20160 DfiTfi 

0 

201 G^l DfiTfi 

20162 DfiTfi 
0,0 

20163 DfiTfi 

0 

20164 DfiTfi 

,0 

20165 DfiTfi 
,64,0,0,6 

20166 DfiTfi 

20167 DfiTfi 
, 0 , 0,0 

20168 DfiTfi 
0 


0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

0,0,0,4,12,194,128,0,48,0,240 

0,0,0,0,0,2,64,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,3 

0,160,0,0,0,12,0,0,0,0,0,0,0, 

2,64,0,0,0,0,0,0,0,0,0,0,0,0, 


3,255,255,255,252,0,0,0,0,0,2 

0 , 0 , 0 , 0 , 0 , 8 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 
0,0,0,0,0,12,10,0,0,132,3,132 


0,0,0,0,0,2,64,0,0,0,0,0,0,0, 


20169 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20170 DfiTfi 51,0,128,0,48,3,132,0,0,0,0,0 

, 0 , 0,0 

20171 DfiTfi 2,64,0,0,0,0,0,0,0,0,0,0,0,0, 

0 

20172 DfiTfi 0,0,3,0,0,0,0,0,0,0,12,0,32,8 
,15 

20173 DfiTfi 3,132,0,0,0,0,0,0,10,170,170, 
170,170,160,0 

20174 DfiTfi 0,2,168,10,178,130,128,21,72, 
70,5,143,137,223,255 

20175 DfiTfi 243,255,0,0,0,3,0,8,0,0,135,1 
32,0,0,0 

20176 DfiTfi 0,8,0,42,170,170,170,170,168, 
0,0,42,128,154,106 

20177 DfiTfi 0,5,85,63,65,127,0,0,0,0,0,0, 

0 , 0,0 

20178 DfiTfi 0,132,2,0,0,51,192,0,0,0,0,0, 
2,178,178 

20179 DfiTfi 170,170,170,170,128,2,170,130 
,170,168,6,138,21,21,71 

20180 DfiTfi 213,255,255,223,287,240,255,2 
52,0,0,0,48,0,128,0 
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20181 DATA 15,192,0,0,0,0,0,0,0,0,0,0,0, 
0,0 

20182 DATA 43,248,60,42,195,254,63,255,2 
55,245,89,81,85,255,204 

20183 DATA 243,63,252,61,0,0,12,0,32,0,3, 
192,0,0,0 

20184 DATA 0,0,0,0,0,0,0,0,0,0,168,32,5, 
22,2 

20185 DATA 168,42,170,21,79,245,0,0,0,4, 
4,1,63,0,0 

20186 DATA 0,3,0,11,255,255,192,0,0,0,0, 

0,0,0,0 

20187 DATA 0,0,0,0,42,170,138,170,170,42 
,168,165,85,255,245 

20188 DATA 127,241,63,255,207,207,207,25 
5,192,0,0,0,192,12,0 

26U89 DATA 0,0,0,61,0,0,0,0,0,0,0,0,0,2,1 

76i 

20190 DATA 168,10,170,168,170,160,1,84,1 
65,70,5,81,85,95,207 

20191 DATA 207,207,255,248,8,0,0,0,12,0, 
0,0,0,0,0 

20192 DATA 0,0,0,0,0,0,0,0,0,0,0,61,0,0,0 

20193 DATA 0,0,0,0,0,0,0,0,0,0,0,0 J 0,0,0 

20194 DATA 0,0,48,12,8,0,0,0,0,0,0,0,0,0 
,0 

20195 DATA 0,0,0,0,61,0,0,0,0,0,0,0,0,0,0 

20196 DATA 0,0,0,0,0,0,0,0,0,0,0,0,12,12 
,0 

20197 DATA 0,0,61,0,0,0,0,0,8,0,0,0,0,0,0 

20198 DATA 0,0,0,0,0,0,0 v@,0,0,0,0,0,8,0 

20199 DATA 0,0,0,0,0,0,0,3,12,0,0,0,0,0, 

20200 DATA 0,0,0,0,0,8,0,0,0,0,0,0,0,0,61 

20201 DATA 0,0,0,0,0,0,0,0,0,0,0,0,61,0,0 

20202 DATA 0,0,0,204,0,0,0,0,0,0,0,0,0,0 
,0 

20203 DATA 0,0,0,0,0,0,0,0,61,0,0,0,0,0,0 

20204 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,48, 
0 

20205 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,61,0 

20206 DATA 0,0,0,0,0,0,0,0,0,0,61,0,0,0,0 
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£0207 DfiTN 0,0,0,0,0,0,0,0,12,0,0,6 
0 

20208 DOTH 0,0,0,0,0,0,0,0,0,0,0,0, 

20209 DHTH 0,0,0,0,0,0,0,8,0,0,0,0, 

20210 DOTH 0,0,0,0,12,0,0,0,0,0,0 
30000 Bt'T=40: LIN=79: GR=7: C< 0 >=6: C< 1 
(2 >= 148: C< 3 >=70: C< 4 >=@ 

30010 RESTORE 20000:FOR P=1 TO 3143 
30020 READ fl:D«P,P>=CHR$<fl> 

30030 NEXT P 
30040 RETURN 


», 0 , 0 , 

■ 0 , 0,0 

0 , 0,0 

>=@: f: 








TANK BATTLE 


(Two joysticks) 


In this game, designed for two players, you move your tank 
and fire so as to destroy your opponent. This gives you one 
point. Pushing the joystick up activates the tank's engines 
and propels it forward. Push the joystick left and right to turn 
left and right, respectively. Push the red button to fire. Good 
hunting! 


2 REPI * TANK BATTLE * 

3 REPI * - * 

4 REPI & Written by Raul Bunn % 

5 repi *mmm^m^mw*****m 

6 REP! 

10 DI PI F1 f-< 20 > , F2$< 20 ) , X< 8 > , V< 8 >' F1$< 1 >— 
CHR$< 172 >: F1 $< 20 >=CHR*< 172 >: F1 $< 2 >=F i $: F 

20 RAn=PEEK>: 106>-16: POKE 756,RAH: IF PEEK 
<203 >0200 THEN GOSUB 890: POKE 203,200 
30 RESTORE 960: FOR Q=1 TO 8: READ XX,W:X 
< Q>=NX:V<Q>=VV:NEXT Q:Ci = 1:C=1 
40 GRAPHICS 2 

50 ? #6;“ tank battle " 

6 @ ? #6 i " 

70 ? :? " ENTER TIP1E TO PLAV “j: INPUT TI 


80 REPI 

90 GRAPHICS 17: POKE 756,RAPT. Fl=14: F2=14: 
X=5: Y= 14: Q= 15: W=5: FF1 = 1: FF2= 1 
100 S=STICK<0 >: IF S=7 THEN C=C+1:IF 08 
THEN C=1 

110 IF S=11 THEN C=C-1:IF C<1 THEN C=8 


56 
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120 IF S=14 THEN COLOR 32:PLOT X,V:X=X+X 

(C >:V=V+V<C>:SOUND a,289,8,8 

130 IF S<>14 THEN SOUND ©,0,0,6 

140 IF X<2 OR X>18 THEN X=X+-X<C>:X=<X=2 

}&18+<X=18>X2 

150 IF V<2 OR VMS THEN V=V+-V<C>:V=<V=2 

>*18+<Y=18>*2 

ISO COLOR C:PLOT X,V 

170 IF STRIG< 0>=0 AND FF1=1 THEN GOSUB 3 
40 

180 IF STRIS<1>=0 AND FF2=1 THEN GOSUB 5 
20 

190 S=STICK<1>:IF S=7 THEN Cl=Cl+l:IF Cl 
>8 THEN C1=1 

200 IF S=ll THEN C1=C1-1:IF Cl<2 THEN Cl 
=8 

210 IF S=14 THEN COLOR 32:PLOT Q,H:Q=Q+X 

< C1 >: H=W+V< C1 >: SOUND 1,160,8,8 

226 IF 3014 THEN SOUND 1,0,6,0 

236 IF Q<2 OR Q>18 THEN Q=GH~X<Cl>:Q=CQ= 

2>:*:18+(Q=1802 

240 IF M<2 OF: W>18 THEN M=H+-V< Cl >: W=< W= 

18>£2+<H=2 >tlQ 

250 COLOR Cl:PLOT Q,W 

266 IF F1 < 1 THEN POSITION 0,21:? #6,-"out 
o f shots" : FF1 =6: GOTO 280 
276 POSITION 0,21:? #6i"shots1»;F1$<1,F1 

280 IF F2<1 THEN POSITION 0,22:? #6;"out 
o f shots 11 : FF2=6: GOT0 360 
290 POSITION 6,22:? #6;"shots2";F2$<1,F2 

300 POSITION 5,0:? #6;S1:POSITION 15,0:? 
#6iS2:POSITION 8,0:? #6 i "TIHE":POSITION 
9,1:? #6;INT<TI);" " 

316 IF PEEKX53279>=6 THEN GOTO 90 
320 TI=TI-0.1:IF TI<0.1 THEN 800 
336 GOTO 100 
340 X1=X+X<C >:V1=V+V<C > 

350 IF C=1 OR C=5 THEN FC=16 

360 IF C=3 OR C=7 THEN FC=12 

376 IF C=2 OR C=6 THEN FC=11 
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380 IF 0=4 OR 0=8 THEN FC=13 

390 FOR F=1 TO 5:LOCATE XI,V1,XX:COLOR F 

0:PLOT XI,VI 

400 IF XX<>32 AND XX<10 THEN GOSUB 700:8 
1=81+1:HH=l:GOTO 450 

410 SOUND 0,255-F*58,8,15:SOUND 1,150-F* 
30,8,155 

420 IF XI >18 OR XKl THEN 450 

430 IF VI >18 OR VKl THEN 450 

440 X1=X1+X<0 >:V1=V1+V<0 >:NEXT F 
450 X1=X+X<C>:V1=V+VC0 > 

460 FOR E=1 TO 5:COLOR 32:PLOT XI,VI 

470 IF XI >18 OR XKl THEN 500 

480 IF VI >19 OR VKl THEN 500 

490 X1=X1+X<C >:V1=V1+VCC >:NEXT E 

500 SOUND 0,0,0,0:SOUND 1,0,6,0:F1=F1 ■-1: 

IF HH=1 THEN HH=0:GOTO 90 

510 RETURN 

520 X2=Q+X<C1>:V2=H+V< C1> 

530 IF Cl=l OR Cl=5 THEN FC=10 

540 IF Cl=3 OR Cl=7 THEN FC=12 

550 IF Cl=2 OR Cl=6 THEN FC=11 

560 IF Cl=4 OR Cl=8 THEN FC=13 

570 FOR F=1 TO 5:LOCATE X2,V2,XX:COLOR F 

C:PLOT X2,V2 

580 SOUND 0,255-FX50,8,15:SOUND 1,150-F* 
30,8,15 

590 IF XX<>32 AND XX<10 THEN GOSUB 750:S 

2=S2+1:HH=1:GOTO 630 

600 IF X2>18 OR X2<1 THEN 630 

610 IF V2>18 OR V2<1 THEN 630 

620 X2=X2+X<C1>:V2=V2+V< C1>:NEXT F 

630 X2=Q+X<Cl>:V2=W+VCCl> 

640 FOR E=1 TO 5:COLOR 32:PLOT X2,V2 

650 IF X2>18 OR X2<1 THEN 680 

660 IF V2>19 OR V2<1 THEN 680 

670 X2=X2+X<Cl>:V2=V2+V<Cl>:NEXT E 

680 SOUND 0,0,0,0:SOUND 1,0,0,0:F2=F2-1: 

IF HH=1 THEN HH=0:GOTO 90 

690 RETURN 

700 FOR 6=15 TO 0 STEP -3 
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710 FOR H=0 TO 2 

720 SOUND H,RND<1>£50+100,8,6 

730 NEXT H 

740 NEXT G:HjR 6=0 TO 2:SOUND 6,0,0,@:NE 
XT G:RETURN 

750 FOR G=15 TO 0 STEP -3 
760 FOR H=0 TO 2 
770 SOUND H,RND<1>£50+100,8,6 
780 NEXT H 

790 NEXT 6:FOR 6=0 TO 2:SOUND 6,@,@,0:NE 
XT G:RETURN 

800 POSITION 5,10:? #8;"GONE OUER" 

810 S1=0:S2=0:FOR Q=1 TO 5 

82© SOUND 0,100+C,10,15: SOUND 1,120+C,10 

,15:SOUND 2,90+C,10,15 

830 C=C-1:IF C=-30 THEN 850 

840 GOTO 820 

850 C=0:NEXT Q 

860 FOR Q=0 TO 2:SOUND Q,0,0,0:NEXT Q 
870 IF PEEK? 53279 >=6 THEN RUN 
88@ POKE 53279,0:GOTO 870 
890 FOR Q=0 TO 1024:A=PEEK<57344+Q>:POKE 
RHP1£256+Q , A: NEXT Q: C=8 
900 READ flsIF A=—1 THEN RETURN 
910 POKE RAP1£256+C, A: C=C+1: GOTO 900 
920 DOTH 24,24,219,219,255,255,255,219,2 
5,50,100,249,187,62,12,24,254,254,48,127 
,127,48,254,254 

925 DATA 24,12,62,187,249,100,50,25 

930 DATA 219,255,255,255,219,219,24,24,2 

4,50,124,221,159,38,76,152 

935 DATA 127,127,12,254,254,12,127,127,1 

52,76,38,159,221,124,50,24 

940 DATA 112,120,248,254,255,127,60,56,2 

4,24,24,24,24,24,24,24,1,2,4,8,16,32,64, 

128,0,0,0,255,255,0,0,0 
950 DATA 128,64,32,16,8,4,2,1,-1 
96@ DATA 0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0 
,-1,-1 




DIGIT DODGE 


(Keyboard) 


Use the keys "Z" and "X" to move your number cruncher. 
Press to shoot and crunch any numbers the same as those 
shown on the number cruncher. Destroying a mystery 
points character ("*") adds a bonus to your score. When the 
invading numbers reach your digit dodger, the game is over. 

0 GOTO 1355REF! ** DIGIT DODGE BY P.BUNN 

1 FOR 1=50 TO 75 STEP 2:SOUND 0,1,10,15: 
NEXT 1: 1=0: V=n+4S: IF Pl= 10 THEN V=l@ 

2 QT=CHR7( V >: IF AT<1,1>=QT THEN I = 1:S=S+ 
10 

3 IF AT<2,2>=QT AND 1=0 THEN AT<2,2>=AT< 
1,1>:1=1:S=S+2@ 

4 IF AT< 3,3 >=Q$ HND 1=0 THEN AT<3,3>=AT< 

2.2 >: AT< 2,2 >=AT< 1,1 >: 1=1: S=S+30 

5 IF AT< 4,4 >=Q7 AND 1=0 THEN AT< 4,4 >=AT< 
3,3>:ATT 3,3 >=AT< 2,2 >: AT< 2,2 >=AT< 1,1 >: I = 1 
:S=S+4@ 

6 IF AT<5,5>=QT AND 1=0 THEN AT<5,5>=AT< 

4.4 >: ATC 4,4 >=AT< 3,3 >: ATT 3,3 >=AfC 2,2 >: I=1 
:S=S+50 

7 IF A$<6,6>=Qf AND 1=0 THEN A$<S,6>=A*< 

5.5 >: ATT 5,5 >=AT< 4,4 >: ATC 4,4 >=AT< 3,3 >: ATC 

3.3 >=AT<2,2 >:I = 1:S=S+60 

8 IF 1=1 THEN AT<1,1>=" ":N=N+1 

10 IF 1=1 AND QT=CHRT<10> THEN FOR 1=255 
TO 20 STEP -18:SOUND 0,1,10,15:NEXT US 

=S+< INK RND< 0 >*7+3 >*100 > 

11 POSITION 1,0:7 #6jSCTjS:? #6i“ high: 

11 i HS 

12 SOUND 0,0,0,0:RETURN 

20 FOR 1 = 14 TO 0 STEP -2:SOUND 0,PH 15*30 
,10,1:NEXT I:RETURN 

135 DIPl ATC 8 >,Q$< 1 >,SC7< 6 >: GOSUE 2000 
140 GRAPHICS 2:SETCQLOR 4,2,2:SETCOLOR 2 


60 
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,2 ,4 

150 A$= " " : A$< 6,6 >=CHR$< RND< @ >$9+48 > 

160 8=0: N=5: FT=0: U= 18:60SUB 11 
165 V=T1+48:IF H=10 THEM V=10 
170 POSITION 5,5:? #6;CHR4KV>i":"ifl$ 

180 I=PEEK<764 >:12=PEEK<53775 > 

190 IF 1=22 AND 12=251 THEN n=n+l:60SUB 
20: IF H> 10 THEN P1=@ 

200 IF 1=23 AND 12=251 THEN H=F1-1: GOSUB 
20: IF ri<0 THEN FT=10 
210 IF 1=34 AND 12=251 THEN GOSUB 1 
215 1=0 

220 TRAP 1000:0=0+1: IF QxlJ=INT< OAJ> THEN 
A$< N,N >=CHR*< RND( 0 >$ 10+48 >: 1 = 1 
222 IF 1=1 THEN IF A$< N,N>=CHR$<58 > THEN 
A$< N,N >=CHR$<10> 

224 IF 1=1 THEN N=N-1:I=0 


225 IF INT < RND<0>$20>=3 THEN U=U-1:IF U< 
8 THEN U=8 

230 TRAP 40000:GOTO 165 
1000 ? #6:? #6i.invaded..":FOR 1=90 TO 
220 STEP 11:FOR H=80 TO 90 STEP 2:SOUND 
0,H,10,15:SOUND 1,1,10,15 
1010 SETCOLOR 4,H,4 
1020 POKE 709,INT<RNDC0>$15 >$16+8 
1030 NEXT H:NEXT I:SETCOLOR 4,2,4:POKE 7 
64,255 


1040 SOUND 0,0,0,0:SOUND 1,0,0,0:IF S>HS 
THEN HS=S:POSITION 0,2:? #6i"high score 

I I I ! “ 


1050 ? "ANOTHER TRV ";:TRAP 1050:INPUT A 

t- 


1055 IF A$<1,1>="N n THEN GRAPHICS 0:? “G 

OODBVE.":? :? :END 

1060 IF A$<1,1>="V" THEN 140 

1070 GOTO 1050 

2000 FOR P=1 TO 6 

2010 READ N 

2020 SC$<P,P>=CHR$<N > 

2030 NEXT P 

2040 DATA 243,227,239,242,229,186 
2050 RETURN 



GRAND PRIX 2 


(Joystick) 


Use the joystick to control the car as it speeds down the 
track. If you manage to reach the finish you win a bonus and 
step value is doubled for your next run. 

10 REfl ** GRAND PR IK 2 - P.BUNN « 

15 PI=5:GOSUB 3000:CRASH=1000 
20 K2=14:K=116:S=PEEK<106 >-8:Q=S*256:FOR 
N=Q+512 TO 0+640SPOKE N,0 s NEXT Ns POKE 5 
4279,S 

30 POKE 559,46:POKE 53248,XsPOKE 704,216 
:POKE 704,70:POKE 53256,1 
40 FOR N=Q+552 TO 0+561:READ A:POKE N,A: 
NEXT N 

50 DATA 129,195,165,24,24,153,213,165,36 
,24 

60 GRAPHICS 0:SETCOLOR 2,0,0:POKE 53277, 
3:POKE 559,46 

65 POKE 752,1:POKE 53278,A 

66 FOR P=0 TO 23:POKE 201,X2s? ,S2$:NEXT 
P 

70 S=STICK<0 >:X=X+<S=7 >Z2 :X=X-<S=11 >Z2 :P 
OKE 53248,X 

72 SOUND 0,40,10,15:SC=SC+PI:SOUND 0,0,0 

,0 

75 IF 0 THEN 0=0:Z=2:GOTO 110 
80 A=PEEK<53770) 

90 IF A>85 AND AC170 THEN Z=2 

100 IF A>170 AND X2<15 THEN Z=3:0=l 

105 IF A<85 AND X2>2 THEN X2=X2-1:Z=1:0= 

110 POKE 201,X2 

115 IF A=192 AND NOT I THEN ? ,F$:I=1:G 
0T0 145 

120 IF Z=1 THEN ? ,S1$ 


62 
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130 IF Z=2 THEN ? ,S2T 
140 IF Z=3 THEN ? ,S3T:X2=X2+1 
145 V=PEEKC53252): IF VO0 AND I THEN GOT 
0 2000 

150 IF v<>0 THEN GOTO CRASH 
160 GOTO 70 

1000 REN ** VOU CRASHED! ** 

1010 N= I NTC RNDC 0 >* 10): POKE Q+552+N, PEEKC 
53770 >:SOUND 0,RNDC 0>*28+20,80,15:POKE 7 
@4,PEEKX 53770) 

1020 IF PEEKC 53770X240 THEN 1010 

1030 POKE 53248,0:? :? "VOU SCORED:"jSC: 

? :? :? "HIT ANV KEY.":POKE 764,255 

1035 SOUND 0,0,0,0 

1040 IF PEEKC764)=255 THEN 1040 

1050 RUN 

2000 FOR V=@ TO 255:POKE 710,V:NEXT V 
2005 ? CHRTC125)i"YOUR SCORE :SC:POKE 
710,0 

2010 ? " BONUS :1000":B=1000 
2020 FOR G=1 TO 1000 STEP 10:B=B-1@:SC=S 
C+10:POSITION 14,0:? SC:POSITION 14,1:? 
Bi" ":SOUND 0,G--'4, 10,10:NEXT G 
2030 SOUND 0,0,0,0 

2040 ? :PI=PI*2:? "STEP UALUE NOW IS ";P 
I 

2045 RESTORE :1=0 
2050 GOTO 20 

3000 DIH FTC 8),S1TC 3),S2TC3),S3TC8) 

3010 RESTORE 3000:FOR F-l TO 8 
3020 READ A,B,C,0 
3030 FTC P,P)=CHRTCA) 

3040 S1TC P,P)=CHRTC B) 

3050 S2TC P,P)=CHRTCC> 

3060 S3TCP,P)=CHRTCD) 

3070 NEXT P 

3080 RESTORE :RETURN 

3090 DATA 160,6,22,7,198,32,32,32 

3100 DATA 201,32,32,32,206,32,32,32 

3110 DATA 201,32,32,32,211,32,32,32 

3120 DATA 200,32,2,32,160,6,32,7 







CITY BOMB 


(Joystick) 

aur plane has developed engine failure and is slowly de- 
:ending on a city below. By bombing the city, and killing 
lillions of people, you will be able to land safely—otherwise 
au will crash! Press the joystick button each time you want 
bomb to drop. 
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10 REN 
20 REfl 
30 REfl 
40 REfl 
50 REfl 
60 REfl 

F.5 IF PEEKX203 >=PEEK< 106 )-8 THEN 80 
70 GOSUB 10000: REfl S INITIALIZATION * 

80 GRAPHICS 0:SETCOLOR 2#8,0:SETCOLOR 4# 

8,0 

90 OPEN #1#4,0,"Ks":POKE 752,1 
100 ? “WHAT SKILL LEUEL <l-9>" 

110 GET #l,A:A=A-48 

120 IF A<1 OR A>9 THEN 110 

130 A=A+3 

135 POKE 756,PEEKX203) 

140 ? CHR3X125):FOR 1=1 TO 38 

150 V = I NT< RND< 0 >S A >+1 

160 FOR F-22 TO 22-V STEP -1 

170 POSITION I ,F': ? :REfl SC I TV CHAR ACT 

ER * 

180 NEXT P 

190 FOR F-15 TO 0 STEP -1 
200 SOUND 0,I*6+20,10,P 
210 NEXT P 
220 NEXT I 
230 COLOR 94 

240 PLOT 1,23:DRAWTO 39,23 

250 X=1:V=@:BH=0:SC=0 

260 POSITION X,V:OX=X:QV=V 

270 PRINT "V. u i : REfl SF'LANE CHARACTERS 

280 X=X+1 

290 IF X=39 THEN X=1:V=V+1 
300 IF X>25 AND V=22 THEN 1000:REfl SHADE 
IT! S 

310 LOCATE X,V,Z 

320 POSITION OX,0V:? " " 

330 IF Z=ASCX> THEN 2000:REH SCRASHS 
340 IF STRIG<0 >=0 AND BH=0 THEN GOSUB 30 
00:REH S BUTTON ROUTINE * 

350 IF Bfl=l THEN GOSUB 4000:REH S HOUE B 


Cl TV BOflB UERSION II 
WRITTEN BV PAUL BUNN 
■JANUARV 1983 
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one ROUTINE * 

360 GOTO 260 

1000 POSITION 13,10: ? 11 LANDED ! " 

1010 POSITION 13,11:? 

1020 FOR T=0 TO 6000 STEP 20 
1030 SOUND 0,T,10,15:NEXT T 
1035 SOUND 0,0,0,0 

1040 ? CHF:$< 125>;"WELL DONE , VOUR SCORE 
WHS ";SC 
1050 END 

2@00 POSITION X-1,Y-1 

2010 ? CHR$<7 >iCHR$( 124 >;CHR$(6> 

2020 POSITION X-1,V 
2030 ? 

2040 POSITION X—1,V+1 

2050 ? CHR?-< 6 > ; CHRTC 124 > ; CHR$< 7 > 

2060 FOR F-200 TO 10 STEP -10 
2070 FOR I=P-5 TO P+5 
2080 SOUND 0,1,120,15 
2090 NEXT I 
2190 C=INT<RND<0)*15 > 

2110 SETCOLOR 2,C,2:SETCOLOR 4,C,2 

2120 NEXT P 

2130 SOUND 0,0,0,0 

2140 POSITION 6,10:? "Another try ?" 

2150 GET #1,fi 

2160 IF CHFl$< ft >="V" THEN RUN 
2170 IF CHRtXA><>"N" THEN 2150 
2180 GRAPHICS 0:END 
3000 Bn=1:BX=X:BV=V+1:K=8:RETURN 
4000 POSITION BX,BV:? " “ 

4010 BV=BV+1:LOCATE BX,BY,Z 

4020 POSITION BX,BV 

4030 ? CHRT( 39 >: RED XBOP1B CHARACTER* 

4040 IF Z=ASC<> THEN 5000 

4050 IF BY=22 THEN POSITION BX,22:? " 11 : 

BH=0 

4060 RETURN 

5000 POSITION BX,BV:? "1":SOUND 0,230,12 
0,15:SC=SC+50 

5010 POSITION 2,0:? “SCORE:”;SC 




CITY BOMB • 


5020 K=K+l!IF K=5 THEN BH=0:POSITION BX, 
BV: ? “ 11 

5030 POSITION BX,BV*? " " 

5040 SOUND 0,0,0,0:GOTO 4050 
10000 GRAPHICS 0 

10010 SETCOLOR 4,9,0:SETCOLOR 2,9,0 
10012 ? "Cl TV BQP1B - PLEASE HA IT" 

10014 ? " - 

10016 POKE 752,1:PRINT 

10020 R=PEEK<106 >-8 

10030 FOR P=0 TO 1023 

10040 POKE R#256+P,PEEK<57344+P > 

10050 NEXT P 
10060 READ I 

10070 IF I<0 THEN POKE 203,R:RETURN 
10080 FOR P=@ TO 7 
10090 READ K 

10100 POKE R*25frK8*I>+P,K 
10110 NEXT P 
10120 GOTO 10060 

10130 DATA 4,255,129,129,129,129,129,129 
,255 

10140 DATA 5,16,8,132,194,255,2,4,8 
10150 DATA 6,170,85,170,85,170,85,170,85 
10160 DATA 7,0,36,60,24,24,60,24,0 
10170 DATA -99 







ENGULF 


(Keyboard) 

In control of the space-cruiser Battlestar, you must engulf an 
alien by destroying all the sectors of space around it. Neither 
you nor the alien (shown as a letter A) can move onto the 
outer border of the area of space under view (these forbid¬ 
den areas are shown as The alien moves one, two or no 
spaces in any move, and you enter your move as two co¬ 
ordinates, pressing RETURN after each one. Any area you 
blast appears as a blank in the area otherwise shown as 
asterisks. You engulf the alien by totally destroying all the 
squares onto which it could move. You are not allowed to 
land on the alien, and will destroy yourself if you do so. 

The alien keeps a watch on the space around it, and signals 
to your computer the degree of danger it senses, so you 
know, more or less, what the alien is thinking. 

The best strategy is to get the alien trapped against one of 
the sides, as it limits the alien's possible moves. The alien is 
aware of this and, using the "intelligence" in lines 6145 and 
6161, will tend to move away from the sides, to minimize the 
chance of being trapped. Knowing this, you may be well- 
advised to build a "fence" of blank areas in a curve around 
the alien, trying to hold it into the sides, or force it to move 
to the sides. 

There is a highest score feature. 

1 GRAPHICS 0: SETCOLOR 4,8,0: SETCOLOR 2,8 

,0 

3 Din fl<10,10> 

5 HISC0RE=8 

10 REP1 ENGULF 

20 RED < C >HARTNELL 1982 

30 GOSUB 9000: REP1 INITIALISE 

40 GOSUB 8000:REH PRINT OUT 
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50 GOSUB 7000:REH ACCEPT PLOVER DECISION 

60 GOSUB 6000:RED UPDATE ALIEN 

70 TI f1E=T I PIE-1 

75 SHOTS=SHOTS+1 

30 IF TIP1E=0 THEN 6570 

85 GOSUB 8000 

90 GOTO 50 

910 TIP1E=30 

5000 RED COLLISION 

5010 PRINT “VOU HIT THE ALIEN,CAPTAIN" 
5020 PRINT "AND HAUE BEEN DESTROVED" 

5030 GOTO 6570 
6000 RED UPDATE ALIEN 
6010 REN CHECK IF SURROUNDED 
6020 H=0 

6030 IF A<f1-1,N>=2 THEN H=H+1 
6040 IF A<H-1,N-1>=2 THEN H=H+1 
6050 IF A<H,N-1>=2 THEN H=H+1 
6060 IF ACn,N+l>=2 THEN H=H+1 
6070 IF A<H-1,N+1>=2 THEN H=H+1 

6080 IF ACn+l,N+l>=2 THEN H=H+1 

6090 IF A<H+1,N-1>=2 THEN H=H+1 

6100 IF Ac P1+1,N>=2 THEN H=H+1 

6110 IF H=8 THEN 6500:REN SURROUNDED 
6120 RE n HOME ALIEN 
6125 E=H:F=N 

6130 n=n— INT<RND< 1 >&2 >+INT< RND< 1 >%2> 

6140 IF H<2 OR n>9 THEN 6130 
6145 IF <F1<4 OR F1>7> AND RND<1»0.7 THEN 
6130 

6150 N=N-INT< RND< 1 >#2)+INT< RNDC 1 

6160 IF N<2 OR N>9 THEN 6150 

6161 IF < N<4 OR N>7> AND RND<1»0.7 THEN 
6150 

6162 IF A< P1,N>=2 THEN 6130 
6165 Ac:E,F>=0 

6170 A<n,N>=i 
6300 RETURN 
6500 REP1 SURROUND 
6505 GOSUB 8000 
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6510 PRINT "ENGULFED! NELL DONE" 

6520 PRINT "IT TOOK VOU ";SHOTS;" SHOTS" 
6530 PRINT "AND VOU DID IT MITH ";TIP1E;" 
TIHE UNITS","LEFT" 

6540 Q=T I PIE* 125.67 


6550 PRINT "VOUR RATING IS ";Q 

6560 IF Q>HISCORE THEN HISC0RE=Q 

6570 PRINT "HIGHEST SCORE SO FOR IS ";HI 

SCORE 

6580 PRINT 

6500 PRINT "ENTER 1 FOR ANOTHER GAP1E,2 T 
0 END" 

6600 INPUT A 

6610 IF A=1 THEN 10 

6620 PRINT "OUER AND OUT#CAPTAIN" 

6630 END 

7000 REP1 ACCEPT PLAVER DECISION 

7010 PRINT "WHICH SECTOR WILL VOU SHOOT 

AT" 

7020 PRINT "ACROSS"; 

7030 TRAP 7030:INPUT SSTRAP 40000 
7035 IF S<2 OR S>9 THEN 7030 
7040 PRINT S;" AND DOWN"; 

7050 TRAP 7050:INPUT R:TRAP 40000 
7055 IF R<2 OR R>9 THEN 7050 


7060 IF A<R,S>=1 THEN 5000:REH HIT ALIEN 
, END OF GAP1E 

7070 IF A<R,S>=2 THEN PRINT "SECTOR ALRE 
ADV DESTROVED":FOR P=20@ TO 255:SOUND 0, 
P,10,15:NEXT P:SOUND 0,0,0,0 


7090 IF A<: R,S>=2 THEN RETURN 

7100 A<R,S>=2 

7110 RETURN 

3000 REPI PRINT OUT 


8005 PRINT CHRTC125) 
8020 PRINT 


3030 PRINT "-ALIEN SENSES DANGER OF F 

ACTOR-";H;"-" 


8050 PRINT "BATTLESTAR C0P1PUTER REPORTS: 

",,"HIGHEST SCORE IS ";HISCORE 

8060 PRINT "- 
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8080 PRINT 

8090 PRINT " ALIEN NON AT ";Ni" ";P1 
8100 PRINT 

8110 PRINT "TIP1E LEFT: " ;T I PIE, "SHOTS FIR 



8130 FOR K=1 TO 10 
8140 FOR J=1 TO 10 

8145 IF K<2 OR K>9 OR J<2 OR J>9 THEN PR 

- I NT ”-“s 

8146 IF K<2 OR K>9 OR J<2 OR J>9 THEN 81 
80 

8150 IF A<K,J>=0 THEN PRINT SOUND 0 

,K£3+J$4,10,15 

8160 IF A< K, J >=1 THEN PRINT "A",-: FOR P=2 
0 TO 0 STEP -isSOUND 0,P,12,15:NEXT P 
8170 IF A<K,J>=2 THEN PRINT " " i :FOR F-4 
0 TO 0 STEP -2:SOUND 0,P,8#15s NEXT P 
8180 SOUND 0,0,0,0:NEXT J 
8190 PRINT K 

- 8200 NEXT K 
8210 PRINT 
8990 RETURN 

9000 REP1 INITIALISE 
9010 TIP1E=30 
9020 SHOTS-0 
9030 H=0 

- 9050 FOR B=1 TO 10 
9055 FOR C=1 TO 10 
9060 A< B#0 >=0 

_ 9065 IF EK2 OR B>9 OR C<2 OR 09 THEN A< 

8 , 0=2 
9067 NEXT C 
9070 NEXT B 

- 9080 n=INT< RND<1>&7 >+2 
9090 N=INT<RND<1 >*7H2 
9100 A<H,N>=1 

_ 9900 RETURN 






COLOR 

PATTERN 


This short program produces a pattern in graphics Mode 10 
and then gives a hypnotizing effect by rotating the colors. 

10 GRAPHICS 10 

20 POKE 784#8 

30 POKE 705#12 

48 POKE 70S#3*16+4 

50 POKE 707#12 

55 POKE 708#12 

60 FOR X=0 TO 79 

70 OC+lsIF C=5 THEN C=1 

80 COLOR C 

90 PLOT X#X 

100 DRflWTO 79-X#X 

110 DRflWTO 79-X#191-X 

120 DRflWTO X#191-X 

13@ DRflWTO X#X 

140 NEXT X 

145 RED tt ROTATE COLOURS « 

150 fl=PEEK<705 ) 

160 POKE 705 # PEEK(786) 

170 POKE 706# PEEK': 707) 

185 POKE 707# PEEKX 708) 

186 POKE 708#A 

190 fl=SIN< fl )s REP1 tt DELflV « 

200 GOTO 150 
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COLOR 

PUZZLE 


(Keyboard) 


This marvelous puzzle should prove challenging to solve. 
Here are the rules. 

The first four moves must be placed in the four corners 
(01,10,16 and 25). 

To place a color square on the grid, it must be next to 
another square horizontally or vertically, not diagonally. A 
color square must not be placed next to another color 
square of the same color in the eight squares around it. 
Proceed to place color squares in this fashion until all 25 
spaces are filled. 

The squares are numbered as follows: 




10 




05 

11 

17 

1 _ 


02 

06 

12 

18 

22 


foT 

03 

07 

13 

19 

~23~| 

~25~| 


04 

08 

14 

20 

~24~| 



09 

15 

21 

r 



16 




Note that a zero is required before a single digit, and that 
RETURN does not have to be pressed. If an illegal move is 
attempted the computer will bleep. When you cannot move, 
just type "99". 
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18 

20 

RED tt COLO! 
REFi ** 

BV7AUL BUNN 




30 

GRAPHICS 10 


40 

POKE 704,12 


50 

POKE 705,3*J 

[6+4 

60 

POKE 706,125 

■a e+e 

70 

POKE 707,7*; 

16+2 

80 

POKE 708,155 

;il 6+4 


90 POKE 709,0:POKE 710*15*16+10 

100 COLOR 6:POKE 703,4 

110 FOR X=0 TO 48 STEP 8 

120 READ V 

13@ FOR X2=0 TO 7 

140 PLOT X+X2+12,90-V 

150 DRAWTO X+X2+12,90+V 

160 NEXT X2 

170 NEXT X 

180 DATA 10,30,50,70,50,30,10 
190 DIO X<25>, VC25> 

200 FOR X2=l TO 25 
210 READ X,V:XCX2>=X:VCX2>=V 
220 NEXT X2 

230 DATA 12,80,20,60,20,80,20,100 
240 DAT A 28,40,28,60,28,80,28,100 
250 DATA 28,120,36,20,36,40,36,60 
260 DAT A 36,80,36,100,36,120,36,140 
270 DATA 44,40,44,60,44,80,44,100 
280 DATA 44,120,52,60,52,80,52,106 
290 DATA 60,80 

300 FOR P=1 TO 25:COLOR 5:PLOT XCP>+3 
P>+10:NEXT P 

310 OPEN #1,4,0,"K:" 

311 COL=INT<RNDC & >*5>+1:COLOR COL 


312 B=B+CC0L=3>:R=R+< COL=1>:G=G+<COL= 
VL=VL+CC0L=4>:BL=BL+<C0L=5> 



313 

IF 

COL=l 

AND 

R>5 THEN 

R- 

=5 

GOT C 

311 

314 

IF 

C0L=2 

AND 

6>5 THEN 

G= 

=5: 

GOTC 

311 

315 

IF 

C0L=3 

AND 

B>5 THEN 

B= 

=5: 

' GOTC 

i 311 

316 

IF 

C0L=4 

AND 

VL>5 THE! 


r'L- 

=5: GO 

iTO 311 














COLOR PUZZLE • 75 


317 IF C0L=5 HMD BL>5 THEN BL=5:GOTO 311 
319 FOR P=0 TO 10:PLOT Pj0:DRAWTO P,20:N 
EXT P 

329 GET #1,KEV:KEV=KEV-48:KEV=KEV*1O 

325 GET #1#KEV2:KEV=KEV+KEV2-48 

326 IF KE't-99 THEN 2000 

327 IF KEV<1 OR KEV>25 THEN PRINT CHR$<2 
53>:GOTO 320 


330 LOCATE X<KEV>,V<KEV >,C 
340 IF C<>6 THEN PRINT CHR$<253>:GOTO 32 
0 


350 IF KEVOl AND KEVO10 AND KEVOIS AN 
D KEV025 AND K<4 THEN PRINT CHRT(253):6 
0T0 320 

355 IF J=1 THEN K=5 


360 IF KEV= 1 OR KEV=10 OR KEV=16 OR KEV= 
25 THEN K=K+1:IF K=4 THEN J=1 
370 X=X< KEV >+3: V=V< KEV >+1 & 

380 LOCATE X-6,V,C1 
390 LOCATE X-6#V-17*C2 
400 LOCATE XjV-17#C3 
410 LOCATE X+6#V-17#C4 
420 LOCATE X+6,V,C5 
430 LOCATE X+6,V+17,C6 
440 LOCATE X,V+17,C7 
450 LOCATE X-6,V+17,C8 


460 IF Cl COL OR C2-C0L OR C3=C0L OR C4= 
COL OR C5=C0L OR C6=C0L OR C7=C0L OR C3= 
COL THEN ? CHR$<253>:GOTO 320 
470 U=< C1 =6 >+< C3=6 >+< C5=6 >+< C7=6 > 

473 I =< C1 =0 >+< C3=0 >+< C5=0 >+< C7=0 > 

475 IF SJ+1 =4 AND K>4 THEN PRINT CHRT<253 
>: GOTO 320 
480 COLOR COL 


485 X=X<KEV >:V=V<KEV > 


490 FOR P=0 TO 7 
500 PLOT X+P 3 V 
518 DRAWTO X+P#V+19 
520 NEXT P 

525 IF R+G+B+VL+BL=25 THEN 1OO0 
530 ND=NQ+1:GOTO 311 
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1000 FOR 13=205 TO 5 STEP -5 
1010 FOR F-G-3 TO G+3 
1020 SOUND 0,P,10,15 
1030 NEXT P 

1040 POKE 704 , < I NT < RND< 0 :>t 15 16 >+8 

1050 NEXT G 

1060 GRAPHICS 0:SETCOLOR 2,9,2:SETCOLOR 
4,9,2 

1070 POSITION 4,12 

1080 ? "WELL DONE VOU SOLOED THE PUZZLE" 
1090 POSITION 4,13 
1100 POKE 752,1 

mo ? 

1130 FOR p=0 TO 255 
1140 SOUND 0,P,10,15 
1150 NEXT P 
1160 SOUND 0,0,0,0 
1170 END 

2000 FOR G=0 TO 256 
2010 SOUND 0,6,10,15 
2020 POKE 704,6x2 
2030 NEXT 6 

2040 SOUND 0,0,0,0:POKE 704,12 
2050 GRAPHICS 0:POKE 752,1 
2055 POSITION 10,12:POKE 710,3$16+4 
2060 ? "BAD LUCK - TRV AGAIN" 

2065 POSITION 10,13 
2070 ? 

2080 FOR P=0 TO 2000 STEP 20 
2090 SOUND 0,P,10,15:NEXT P 
2100 SOUND 0,0,0,0 
2110 ? :? 

2120 ? "VOU HAD ";25-NOi" LEFT TO FILL" 
2130 END 


BLUEGREEN 

REDYELLOW 





STRING 

PATTERN 


This short, simple program produces lovely patterns and 
sounds. 

10 REP1 tt STRING PATTERN WRITTEN tt 
20 REH %% BY PAUL BUNN 1983 ** 

30 repi m*m^*m**mw«*m* 

40 GRAPHICS 8+16•SETCGLQR 2,0,0 

45 COLOR 1:SETCOLOR 1,0,14 

50 FOR X=0 TO 191 STEP 10 

80 PLOT 64,191-X 

70 DRAWTO X+64,0 

80 PLOT 191-X+64,0 

90 DRAWTO 191+64,191-X 

100 PLOT 64,X 

110 DRAWTO X+64,191 

120 PLOT 191+64,X 

130 DRAWTO 191-X+64,191 

140 NEXT X 

145 FOR P—0 TO 14 STEP 0.2 
150 SETCOLOR 1,0,P 
155 SOUND 0,P*40,10,15 
160 NEXT P:GOTO 145 
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SOUND 

PROGRAM 


(Keyboard) 


This short and interesting program will produce piano-like 
sounds, remember notes and then play them back when you 
press the "ESC" key. 
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10 REP1 tt SOUND PROGRAM tt 
20 REF1 ** BV tt 

30 REF1 tt PAUL BUNN ft 

40 reh 

50 GRAPHICS 0 

b0 SETuOLUR 2*3*0:SETuOLuR 4*8*0 
70 TRAP 160 
90 DIFl T< 500 > 

100 OPEN #1*4*0*"K:" 

105 ? CHR$<125>:? "PRESS KEYS TO GET DIF 
FERENT" 

106 ? "NOTES.TO HEAR PLAYED BACK PRESS 
ESC 1 " 

110 GET #1*A:L=L+1 
115 IF A=27 THEN 160 
120 T< L >=A 

130 FOR N=15 TO 0 STEP -1 
140 SOUND 8 * A,10 * X:NEXT X 
150 GOTO 110 
160 ? CHRTC125) 

170 ? "WHAT TEHPO (1-4)" 

180 GET #i*R 

190 A=A-48:IF A<1 OR A>4 THEN 180 
200 FOR J=1 TO L 
210 S=T<J > 

220 FOR X=15 TO 0 STEP -1 
230 SOUND 8,S*10*K:NEXT X 
235 FOR 8=1 TO 1®K A-l >:NEXT G 
240 NEXT J 
250 END 














DISPLAY LIST 
INTERRUPT 
EXAMPLE 


This program demonstrates just a little of what a DU can do. I 
suggest you SAVE the program before attempting to RUN it, 
since it is written entirely in machine code. 


10 REP1 $5 
20 REP! *:• 
30 REP1 $5 
40 REPI 

: Display List interrupt tt 
: example %% 

Written by Paul Bunn 

50 REPI t' 


60 GOSIJB 

1 008 

70 X=USR< 

: 1536) 


1000 FOR 0=1536 TO 1636:READ B:POKE 0,B: 
NEXT 0 

1001 D0T0 162#16*169*3*157*66*3*163*39*1 
57*68*3*163*6*157*63*3*163*12*157*74*3*1 
69*8,157 

1002 DOTH 75*3,32*86,228*173*48*2,133*20 
3*173*43*2*133*204*160*0*177*203 * 201 * 15 * 
240*8*200*132 

1003 DOTH 0*208*245*76*63,6*163*143*145* 
203*76*48*6*169*81 *141*0*2* i63*e*14i*1*2 
* 163*192 

1004 DOTH 141,14*212*76*78*6,72*173*11*2 
12*42*73*255*141*10*212*141*24*208*141*2 
6*208,104*64*83 

1005 DATA 58 

1006 RETURN 













REACTION 

TIMER 


(Two joysticks) 


This is a short program for two players and is very simple to 
play. When you see a dot on the screen press the fi re button. 
The first player to do this wins a point. The first player to get 
10 points wins the game. This program tests reflexes. 


1.0 REP1 $$ REACTION TI PIER $$ 

20 RED $$ EV P. BUNN , NOMEflBER 1381$* 

30 REN 

31 DIN A$<30>,B$<30> 

32 ? "PLAVER l'S NADE "i:INPUT A$ 

33 ? "PLAYER 2'S NAHE "j:INPUT B$ 

40 GRAPHICS 5 

45 SETCOLOR 2,3,4 

50 A=INT<RNDC 0>$200>+200 

60 FOR L=1 TO A 

70 IF STRIGC0>=0 THEN GOTO 1000 
80 IF STRIGC1>=8 THEN GOTO 2000 
90 NEXT L 

100 COLOR INTC RNDC0 >$3 >+1 


110 A=RNDC 0 >$79:B=RND<0>$39 
120 PLOT A,B 
130 A=0 
140 A=A+1 


150 IF STRIG< 0 >=0 THEN 3000 
160 IF STRIGC1>=0 THEN 4000 
170 GOTO 140 

1000 GRAPHICS 0:? "CHEAT! YOU PRESSED TH 
E BUTTON TO SOON":SC2=SC2+1:GOTO 5000 
2000 GRAPHICS 0:? "CHEAT! YOU PRESSED TH 
E BUTTON TO SOON":SC1=SC1+1:GOTO 5000 
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3000 GRAPHICS 0:? 0$;" WINS!_WITH A T 

IHE OF:- "iA/100:SCl=SCl+l:IF 

SCI>=10 THEN 6000 
3005 GOTO 5000 

4000 GRAPHICS 0:? BWINS! _WITH A T 

IHE OF:- "#A/100:SC2=SC2+1:I 

F SC2>=10 THEN 7000 
4005 GOTO 5000 
5000 ? :? :? :? 

5005 ? " ======" 

5010 ? " SCORES" 

5020 ? " ======" 

5030 PRINT :PRINT 

5040 ? A";B* 
5050 ? "- 


5060 ? 

5070.? SCI;" 

5080*"? :? :? "PRESS 'FIRE BUTTON' WHEN R 
EADV " 

5090 IF STRIG<0K>0 THEN 5090 
5100 FOR L=1 TO 100:NEXT L:G0T0 40 
6000 ? :? :? :? AWINS THE GAHE 
6005 ? :? :END 

7000 ? :? :? :? B$;" WINS THE GAHE 
7005 ? :? :END 


























MORSE CODE 


Just type any sentence when prompted, and the program 
will convert it into Morse code; you will hear the Morse 
code through the television speaker. 


10 repi 

20 REPI * HORSE CODE CONUERTER BY * 

30 REPI * P.BUNN & J.UINCENT t 
40 REPI %*%*****%t***t**XZ*%*t*X%%*% 

50 GRAPHICS 0 

60 SETCOLOR 2,8,0:SETCOLOR 4,8,0 

70 DL=PEEK< 560 >+256*PEEK<561>+4 

80 POKE DL+2,7:POKE DU-3,7 

90 POSITION 0,1 

L00 ? "HORSE CODE CONUERTER"; 

110 ? " " 

L20 ? :? :? "TYPE IN P1ESS AGE YOU WANT TO 
HEAR 

1.30 DIH A$< 100>,B$<5> 

140 SOUND 0,0,0,0:TRAP 140:INPUT A$ 

L50 FOR X=1 TO LEhK A$ > 

155 IF A$<X,X>=" " THEN FOR P=1 TO 100:N 
EXT p:NEXT X 
160 V=ASC< A$< X , X > >-65 
L70 RESTORE Y+1000 


180 B$=" ":READ B$ 

190 FOR Z=1 TO LEN(B$> 

200 IF B$<Z,Z>=". " THEN SOUND 0,30,10,15 
:FOR P=1 TO 20:NEXT P:SOUND 0,0,0,0 
210 IF B$<Z,Z" THEN SOUND 0,30,10,15 
:FOR P=1 TO 50:NEXT P:SOUND @,0,0,0 


220 FOR P=1 TO 20:NEXT P 

230 NEXT Z 

240 NEXT X 

250 RUN 

1000 DATA 

1.001 DATA 
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1002 DATA 

1003 DATA . 

1004 DATA . 

L005 DATA 

1006 DATA 

1007 DATA .... 

1008 DATA .. 

1009 DATA .- 

1010 DATA 

1011 DATA 

1012 DATA — 

1013 DATA -. 

1014 DATA - 

1015 DATA 

1016 DATA 

1017 DATA .-. 

1018 DATA ... 

1019 DATA - 

1020 DATA ..- 

1021 DATA ...- 

1022 DATA .— 

1023 DATA 

1024 DATA 

1025 DATA —.. 


1 DOT DA! 




COMPLIMENT 

GENERATOR 


Feeling depressed? Just RUN this program, and increase 
your self-esteem immediately. 

L0 REP1 tt COMPLIP1ENT GENERATOR U 
20 DIP1 fW:i5)*B$C15) 

30 A=INTCRND< 1>#10> 

40 B=INTC RND< 1 ">%? ) 

50 RESTORE 1000+A 
60 READ A* 

70 RESTORE 2000+B 
80 READ B$ 

90 ? A "iB$ 

95 A= I NT <. RND( 0 ')% 16 >: SETCOLOR 2,A,4:SETC0 
LOR 4jAj4 

96 FOR F=1 TO 300:NEXT F 


100 RUN 


L 000 

DATA 

BRILLIANT 

1001 

DATA 

LOUELV 

1002 

DATA 

GREAT 

1003 

DATA 

CLEUER 

1004 

DATA 

INTELLIGENT 

1005 

DATA 

NICE 

1006 

DATA 

WISE 

1007 

DATA 

BEAUTIFUL 

1008 

DATA 

CHARP1ING 

1009 

DATA 

SPIART 

2000 

DATA 

PERSON 

2001 

DATA 

CHARPIEF: 

2002 

DATA 

GENIUS 

2003 

DATA 

INDIUIDUAL 

2004 

DATA 

OPERATOR 

2005 

DATA 

HERO 

2006 

DATA 

ACE 
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SPACE 

DOCKER 


(Joystick) 

This is one of the best programs in the book. It uses four 
players and a machine code routine to move them. No 
movement is done in BASIC, as it is too slow. 

Battling with alien invaders in some distant galaxy, your 
ship suddenly takes a direct hit. You enter the tiny escape 
shuttle with your crew, blast off, and race toward the mother 
ship where safety is assured. Your air supply, however, is 
rapidly running out: you have only 300 units left. Your 
mission, using the joystick in Port 1, is to dock with the 
mother ship before the supply expires completely. 

You use the joystick button to thrust, pushing it left or 
right to steer the shuttle toward the mother ship. When you 
succeed in docking with the mother ship, the number of air 
units you have left will be added to your score. 

Anyone interested in the machine code routine I have 
used will find the assembly listing after the BASIC listing. 
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L 0 F:EP1 

20 REPI * SPACE DOCKER BV P.BUNH & $ 

30 REN t JONATHAN UINCENT * 

40 REPI 

50 GOSUB 10000:REH tt rNITIALIZATION tt 
60 GOSUB 20000 

65 SOUND 0,0,3,15:POKE 5327S,R:AIR=3@0 
70 X=USRC1536> 

30 IF PEEKC731+R#256 >=24 THEN 1000 
90 IF PEEKC 53254 X>0 OR PEEKC 53262 X>0 T 
HEN GOTO 2000 

100 AIR=AIR-1: IF AIRO0 THEN 70 

110 POSITION 4,6:? "out of air":SC=0 

115 POKE 53251,0 

120 FOR F-0 TO 4000 STEP 12 

130 SOUND 0,P,10,15:NEXT P 

140 SOUND 0,0,0,0 

150 POSITION 4,6:? "press START" 

155 POSITION 4,4:? "score:"iSC 

160 POKE 53279,0 

170 IF PEEKC53279 >06 THEN 160 

130 POSITION 4,6:? " ":GOSUB 1 

0100:GOTO 65 

1000 IF PEEKC209»PEEK<203> AND PEEKC209 

XPEEKC204> THEN 1020 

1010 GOTO 2000 

1020 POSITION 4,6:? "docked" 

1025 POKE 53251,0 

1030 FOR P=230 TO 10 STEP -10 

1040 FOR X=P-5 TO P+5 

1050 SOUND 0,X,10,15 

1060 NEXT X 

1070 SETCOLOR 1,RN0C0>#16,10 

1080 NEXT P 

1090 SOUND 0,0,0,0 

1100 POSITION 21,4:? "remaining air:";AI 
R 

1110 SC=SC+AIR:GOTO 150 

2000 FOR P=781 TO 896: IF PEEKC RS256+P X > 
24 THEN NEXT P 
2005 POKE 53251,0 
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2010 E=53770:POKE P+256*R+RND< 0 >*3,PEEK< 
E > 

2020 SOUND 0,PEEK<E>,8,15:POKE 706,PEEK< 
E > 

2030 S=S+1:IF S<50 THEN 2010 
2035 POKE 53250,0:POKE 53251,0 
2040 S=0:SC=S:6OTO 140 
10000 GRAPHICS 0:DL=PEEKX 560 >+256#PEEK<5 
61>+4:POKE 82,0 

10010 POKE DL+5,7:POKE DL+6,6:P0KE DL+7, 
6:POKE DL+8,6:POKE DL+9,6 
10020 SETCOLOR 4,8,4:SETCOLOR 1,3,4:POKE 
DL+10,6 

10030 SETCOLOR 0,3,8:SETCOLOR 1,13,10 
10040 POSITION 0,4:POKE 752,1 
10050 ? " SPACE DOCKER 

10055 ? " %*%%%*%%%%%% "i 

10060 ? " you are losing air "; 

10070 ? " and DUST dock with "; 

10080 ? " the passing mother "; 

10090 ? " ship_GOOD LUCK! 

10100 R=PEEK<106 >-8:RESTORE 

10110 FOR P=RS256+512 TO R*256+l@24 

10120 POKE P,0:NEXT P 

10130 FOR P=10 TO 17 

10140 READ A,B 

10150 POKE R&256+512+P,A 

10160 POKE R&256+640+P,B 

10170 NEXT P 

10130 DATA 7,224,62,124,111,246 
10190 DATA 255,255,214,107 
10200 DATA 124,62,60,60,4,32 
10210 FOR P=@ TO 7 
10220 READ A 

10230 POKE R*256+768+80+P,A 
10240 NEXT P 

10250 DATA 24,60,36,60,36,126,90,255 
10260 FOR P=@ TO 6 
10270 READ A 

10230 POKE R&256+896+88+P,A 
10290 NEXT P 
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10300 ? CHR$<125):COLOR 160:PLOT 0,20:DR 
AWTO 33,20:? CHR$d60 >: POSITION 
10310 POKE 704,3*16 
10320 POKE 705,8*16 
10330 POKE 706,15*16+18 
10340 POKE 707,3*16+4 
10350 POKE 53277,3 
10360 POKE 559,46 
10370 POKE 53248,110 
10380 POKE 53249,126 
10390 POKE 53250,108 
10400 POKE 53256,1 
10410 POKE 53257,1 
10420 POKE 53258,1 
10430 POKE 53259,1 
10440 POKE 623,1 
10450 POKE 54279,R 
10460 DATA 24,60,126,255,255,0,0 
10470 POKE 203,110:POKE 204,126 
10480 POKE 208, INK RND(1 >*2)+l: POKE 209, 
108 

10485 K=R*256+768: POKE 206, INK K^'256 >: PO 
KE 205 , K-c; 256*PEEKC 206 > > 

10490 RETURN 

20000 FOR A=1536 TO 1676:READ B:POKE A,B 
:NEXT A 

20001 DATA 104,165,208,201,1,240,17,230, 
203,230,204,165,204,201,200,208,21,169,1 
,133,208,76,38,6,198 

20002 DATA 203,198,204,165,203,201,50,20 
8,4,169,2,133,208,165,203,141,0,208,165, 
204,141,1,208,173,128 

20003 DATA 2,201,11,240,10,173,120,2,201 
,7,240,8,76,72,6,198,209,76,72,6,230,209 
,165,209,141 

20004 DATA 2,208,173,132,2,201,0,240,11, 
169,0,141,3,208,141,0,210,76,127,6,173,1 
0,210,141,195 

20005 DATA 2,165,209,141,3,208,169,130,1 
41,0,210,160,0,177,205,136,145,205,200,2 
00,192,0,208,245,76 

20006 DATA 140,6,160,0,177,205,200,145,2 
05,136,136,192,0,208,245,96 
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20007 RETURN 
10 $=$600 

20 iASSEMBLY ROUTINE USED IN 
30 i SPACE DOCKER WRITTEN BY PAUL BUNN 
40 H0R1=$CB 
50 H0R2=$CC 


80 LF=$D0 
70 H0R3=$D1 
80 PLfi 
90 LDfi LF 
0100 CP1P #1 
0110 BEQ RIGHT 
0120 LEFT INC H0R1 
0130 INC H0R2 
0140 LDfi H0R2 

0150 cnp #200 

0160 BNE N1 
0170 LDfi #1 
0180 STfl LF 
0190 JPIP N1 
0200 RIGHT DEC H0R1 
0210 DEC H0R2 
0220 LDfi H0R1 
0230 CHP #50 
0240 BNE N1 
0250 LDfi #2 
0260 STfi LF 
0270 N1 LDfi H0R1 
0280 STfi 53248 
0290 LDfi H0R2 
0300 STfi 53249 
0310 STICK LDfi $278 

0320 cnp #11 

0330 BEG! L 
0340 LDfi $273 
0350 cnp #7 
0360 BEQ R 
0370 jnP N2 
0330 L DEC H0R3 
0390 JPIP N2 
0400 R INC H0R3 


FOR ADVANCED PROGRAM¬ 
MERS 

Starting at line 10 (above) is the 
assembly-language version of 
the routine that runs from line 
2000 to 2007. This is just to give 
you the opportunity to look over 
my shoulder and see the 
process of communicating 
directly with the CPU. Don’t type 
this into your computer, it will 
only give you all sorts of weird 
error messages. 
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0410 N2 LDR H0R3 
0420 STA 53250 
9430 LDR $284 

0440 cnp #0 

0450 BEQ ON 
0460 LDR #0 
0470 STfl 53251 
0480 STfl $0200 
0490 JP1P N4 
0500 ON LDR 53770 
0510 STfl 707 
0520 LDR H0R3 
0530 STfl 53251 
0540 LDR #130 
0550 STfl $D209 
0560 LDV #0 
0570 flGl LDft <$CD>,V 
0580 DEV 
0590 STfl <$cd:>,v 
0600 INV 
0610 INV 
0620 CPV #0 
0630 BNE flGl 
0640 JP1P N5 
0650 N4 LDV #0 
0660 flG2 LDfl t$CD >jV 
0670 INV 
0680 STfl <$CD>,V 
0690 DEV 
0700 DEV 
0710 CPV #0 
0720 BNE RG2 


SKI RUN 


(Joystick) 


Notes for typing the program in: 

1. Type exactly what is listed. 

2. SAVE the program on cassette or disk before you RUN 
the program. 

3. The program is designed for an Atari 400/800 with at 
least 16K memory, with or without DOS loaded in. 

4. If you have a 16K machine, when you RUN it the screen 
will flash funny colors—this is normal and will stop 
shortly. 

5. When you are about to play Ski Run, switch the compu¬ 
ter OFF/ON. LOAD the program in and then RUN. The 
program will take a few seconds to RUN after the 
command. Press START for the game to commence. 

If you follow the above rules, you will find yourself with a 
very good, 100% machine code game—quality you would 
expect from very expensive software. 


Use your joystick, plugged into Port 1, to move your skier 
left or right. To score points run over the blue flags; avoid 
the trees at all costs. If you are skillful enough to complete a 
round, you will advance to the next level which means you 
go to a higher mountain with steeper slopes, and your skier 
moves faster. The game ends when your skier crashes into a 
tree. Press START to relieve his frustration. 
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1.0 REf'l n SKI RUN BV PAUL DUNNING 
20 RED 

30 REN Hake sure you SAME this program 
40 RED before you attempt to RUN it- ! 

45 REN 

50 GOSUB 1000 
80 GOSUB 2000 
70 GOSUB 3000 
80 GOSUB 4000 
90 X=USR<1663 > 

1000 FOR 0=1536 TO 1646:READ B:POKE A,B: 
NEXT A 

1001 DATA 112,112,112,70,0,60,7,0,6,6,11 
8,217,35,54,54,54,54,54,54,54,54,54,54,5 
4,54 

1002 DATA 54,54,54,54,54,54,54,54,65,0,6 
,0,24,24,24,24,60,60,60,60,60,60,126,126 
,126 

1003 DATA 126,126,126,255,255,255,255,25 
5,255,255,255,126,126,24,24,24,24,24,0,2 
55,255,255,255,255,255 

1004 DATA 255,255,192,192,192,192,192,19 
2,192,192,3,3,3,3,3,3,3,3,0,0,0,0,0,0,0 

1005 DATA 0,7,31,127,31,7,1,1,1,0,0 

1006 RETURN 

2000 FOR 0=13568 TO 14636:READ B:POKE A, 
B:NEXT A 

2001 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2002 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2003 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2004 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2005 DATA 0,0,0,101,110,100,0,111,102,0, 
114,111,117,110,100,0,0,0,0,0,0,0,0,0,0 

2006 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2007 DATA 0,0,110,101,120,116,0,114,111, 
117,110,100,0,0,0,0,0,0,0,0,0,0,0,0,0 

2008 DATA 0,99,111,109,105,110,103,0,0,1 
17,112,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
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2009 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2010 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0*0,0,0,0,0,0,0,0,0 

2011 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2012 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2013 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2014 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2015 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2016 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2017 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2013 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2019 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2020 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2021 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,8, 

0 , 8 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2022 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2023 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2024 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,9,0,0,0,0,0,0,0,0 

2025 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2026 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2027 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2023 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2029 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2030 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,8 
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2031 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2032 DfiTfi 0,51,43,41,0,50,53,46,0,0,0,0, 
0,0,0,0,0,0,0,51,35,47,50,37,0 

2033 DfiTfi 16,16,16,16,16,0,0,0,0,0,0,0,0 

, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2034 DfiTfi 0,0,0,0,63,63,63,63,63,63,63,6 
3,63,63,63,63,63,63,63,63,63,63,63,63,63 

2035 DfiTfi 63,63,63,0,0,0,0,0,0,0,0,0,0,0 

, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2036 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2037 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2038 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2039 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2040 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2041 DfiTfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,36 

2042 DfiTfi 36,36,36,36,36,36,36,36,36,36, 
36,36,36,36,36,0,0,0,0,0,0,0,0,0,0 

2043 DfiTfi 0,0,0,0,0,0,0,0,0,0,129,129,12 
9,90,90,90,60,60,60 

2044 RETURN 

3000 FOR fl=14848 TO 15475:REfiD B:POKE fi, 
B:NEXT fi 

3001 DfiTfi 169,175,141,1,210,169,0,141,11 
,6,169,32,141,12,6,169,14,141,200,2,169, 
200,141,196,2 

3002 DfiTfi 169,32,133,213,169,120,141,197 
,2,162,6,169,0,157,0,29,202,208,248,160, 
0,135,0,224,153 

3003 DfiTfi 0,56,185,0,225,153,0,57,185,0, 
226,153,0,58,185,0,227,153,0,59,136,208, 
229,169,32 

3004 DfiTfi 133,208,162,16,160,0,169,0,145 
,207,136,208,249,230,208,202,208,242,169 
,56,141,244,2,160,88 

3005 DfiTfi 185,37,6,153,8,56,136,208,247, 
169,0,141,48,2,169,6,141,49,2,166,213,17 
3,10,210,133 
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3006 DATA 205,173,10,210,41,14,9,32,133, 
206,169,1,160,0,145,205,160,24,169,2,145 
,205,160,48,169 

3007*DATA 3^145,205,160,72,169,4,145,205 
,202,208,215,162,32,173,10,210,133,205,1 

73.10.210.41.14.9 

3008 DATA 32,133,206,160,0,177,205,201,0 
,208,234,169,73,145,205,202,208,227,162, 
0,169,0,157,0,32 

3009 DATA 202,208,243,32,131,9,32,17,10, 
160,0,140,5,212,32,32,9,152,72,104,168,1 
73,120,2,201 

3010 DATA 7,240,26,201,11,240,3,76,14,9, 
165,212,201,56,240,29,198,212,165,212,14 
1,0,208,141,1 

3011 DATA 208,76,14,9,165,212,201,192,24 
0,10,230,212,165,212,141,0,208,141,1,208 
,173,4,208,201,0 

3012 DATA 240,3,32,235,9,200,192,3,208,1 
82,76,52,9,152,72,160,24,162,0,202,208,2 
53,169,0,141 

3013 DATA 0,210,136,208,243,104,168,96,1 
73,11,6,24,105,24,141,11,6,173,12,6,105, 

9.141.12.6 

3014 DATA 173,12,6,201,45,240,3,76,209,8 
,169,0,169,0,141,11,6,169,27,141,12,6,17 

3.35.9 

3015 DATA 201,7,240,3,206,35,9,162,0,138 
,72,32,32,9,104,170,202,208,246,141,11,6 
,169,32,141 

3016 DATA 12,6,165,213,24,105,10,133,213 
,76,44,8,169,58,141,192,2,169,0,141,193, 
2,169,128,141 

3017 DATA 0,208,133,212,169,128,141,1,20 
8,169,0,141,2,208,141,3,208,141,4,208,14 

1.5.208.141.6 

3018 DATA 208,141,7,208,169,3,141,29,203 
,169,48,141,7,212,169,62,141,47,2,162,0, 
169,0,157,0 

3019 DATA 52,157,0,53,202,208,245,162,17 
,189,0,31,157,128,53,202,208,247,162,17, 
189,32,31,157,128 

3020 DATA 52,202,208,247,162,96,189,0,30 
,157,255,59,202,208,247,96,173,4,208,201 
,2,240,16,173,31 
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3621 DfiTft 208,201,6,208,249,163,255,141, 
30,208,76,0,8,72,32,17,10,169,1,141,30,2 
08,173,10,210 

3022 DfiTft 141,0,210,96,32,101,10,238,4,2 
9,173,4,23,201,10,240,1,96,163,0,141,4,2 

3023 ORTfi 23,173,3,23,201,10,240,1,96,16 
9,0,141,3,29,238,2,23,173,2,29,201,10,24 
0,1,36 

3024 DftTR 169,0,141,2,29,238,1,23,173,1, 
23,201,10,240,1,96,169,0,141,1,23,238,0, 

23,173 

3025 DfiTft 0,29,201,10,240,1,96,169,0,141 
,0,23,0,162,5,189,255,28,24,105,16,157,3 
0,60,202 

3026 DfiTft 208,244,96 

3027 RETURN 

4000 FOR ft=1663 TO 1738:REfiO B:POKE fi,B: 

NEXT ft 

4001 DfiTft 104,169,0,133,203,163,53,133,2 
04,160,0,132,205,169,27,133,206,177,203, 
145,205,200,208,249,230,204 

4002 DfiTft 230,206,165,206,201,32,208,239 
,169,0,133,203,133,205,169,58,133,204,16 
9,8,133,206,177,203,145 

4003 DfiTft 205,200,208,249,230,204,230,20 
6,165,204,201,61,208,239,169,0,133,12,16 
9,8,133,13,76,0,8 


4005 RETURN 





How to Write 
Better 
Programs 

By Tim Hartnell, series editor 


There are a number of fine programs in this book, and many 
of the regular computer magazines contain others. But no 
matter how good the programs from published sources are, 
you are certain to get more pleasure from running them if 
they have been partially or completely written by you. 
Putting your personal stamp on programs, altering them to 
reflect your wishes and creativity, is an excellent way to 
improve the programs, and eventually, of course, you'll 
become a better and more imaginative programmer. 

Programs in magazines, and in books like this one, are 
ideal as starting points for your own developments. You may 
also find that advertisements for software packages can be 
fruitful "idea-starters". You only need to read the descrip¬ 
tion of what the commercially available program does, and 
you will have the first step toward creating your own 
program. You have to be careful, of course, not to infringe 
copyright either in the screen displays, in the name of the 
program, or the names of the "characters" within the pro¬ 
gram. However, you will probably find that at a certain point 
in its development the program will take on a life of its own, 
growing and evolving away from the original scenario, until 
you eventually have a completely new game concept and 
implementation. 

Whatever you do, be careful not to pass off other people's 
work as your own. By all means adapt and improve pub- 
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lished programs, but do not then present them to magazines 
as if they were originals. I have lost count of the number of 
times one of my own programs, from one of my books, has 
been submitted to me for publication. 

Always watch out for new ideas as you look through 
books, game and computer magazines, or wander through 
video game arcades. It may be worth keeping notes of ideas 
you come across for games, for character shapes, for 
sounds, for dramatic endings and so on. Thus you will never 
be short of ideas, and you will also be able to merge the 
material together to produce better games which hold the 
player's attention for longer. 

Games tend to fall into one of three categories, and it is 
worth making sure of the category into which your proposed 
program will fall before you start to program, since the 
category of game materially alters the programming ap¬ 
proach. This is not to say that, as you develop a program, it 
will not move from one category into another, nor that a 
particular game might not extend across two categories, but 
it is nevertheless useful to keep the various groups separate 
in your mind, just to clarify your thoughts. The three catego¬ 
ries are: 

1. Board games 

2. "Arcade" (that is, highly visual, fast moving, noisy, real 
time) games 

3. Games of chance (such as Roulette and Snap). 

In board games, the quality of play is more important than 
lightning-fast response, while the arcade-type programs 
must be kept moving at all costs, even if some "intelligence" 
from your Martian intruders must be sacrificed to achieve 
this. Games of chance depend more on their ease of play 
("user-friendly" inputs), and an approach to true random¬ 
ness, than do either of the other categories. 

You will find that games programs tend to fall into types, 
which are subdivisions of the three above mentioned cate¬ 
gories. Many board games are variants of chess or checkers; 
many arcade games started off life as Space Invader-type 
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games; and games of chance started off in the "real world" 
of dice and cards. Looking at a program description, or a 
games machine, and trying to categorize the game you see 
can help trigger new ideas which fit within that particular 
game's genre. 

There is a school of thought within programming—gener¬ 
ally called "structured programming"—which believes that 
discipline at the beginning of the games-writing process is 
essential. While less interesting than sitting down at the 
computer right away, a much better program is produced in 
the end. I once wrote a program called Dome Dweller, a 
simulation program in which the player is in charge of a 
"lunar dome" and must decide which products to manufac¬ 
ture and sell in order to buy oxygen and food for the station's 
inhabitants. (This program was used in my book The Book of 
Listings, written with Jeremy Ruston, and published by the 
BBC.) Once I had decided the overall scenario, I worked out 
the screen display, and came up with an idea as follows: 

Oxygen supplies are low 

There are 96 people living within your dome in year 3 

Money credit is $5,693 

Annual maintenance charge is $226 

Oxygen tanks hold 811 units 

Oxygen costs $8 per unit 

Each dome dweller needs 5 units a year 

Food stocks stand at 2122 

Each dweller needs 3 units a year ($6 each, $576 for dome. 

This will last 7 years at present population.) 

You can trade your unique lunar sculptures with the 
people who live in other domes. You use up 2 units of 
oxygen making each one, and sell them for $30. 

As you can probably guess from this "sample printout", 
the idea of the program is to decide how many "unique lunar 
sculptures" you must make and sell in order to buy oxygen 
and food, and to pay the "annual maintenance" charge. The 
problem with this particular program is that making each 
sculpture uses up oxygen, so you must balance your wish to 
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make money against the need to use the oxygen intelli¬ 
gently. 

You may well wish to try writing such a program yourself. 
You should end up with an enjoyable program, and writing it 
will do much to help you develop your programming skills. 
The first thing to do is to make a list of what the program has 
to do: 

Set up the needed variables 

Tell the player the "state of the dome" 

Ask how much oxygen to be bought 
Check if can afford this, if so buy it, if not go back and ask 
again 

Ask how much food to be bought 

Check if can afford this, if so buy it, if not go back and ask 
again 

Update oxygen quantity 
Update food quantity 
Reduce money left total 
Ask how many items of sculpture to be made 
Check if there is enough oxygen to make this many, if not 
go back and ask again 

Reduce oxygen quantity by amount needed to make the 
number of sculptures specified, increase money total to 
reflect value of sculptures made 
Increase the population total slightly, add one to the 
"current year" 

Check if there is enough food in stocks to feed whole 
population 

Check if there is enough oxygen for whole population 
Check if there is any money 

If any of these conditions are negative (e.g. not enough 
food) send action to an "end of game" routine 
If all are positive, loop back to tell the player the state of 
the dome, and continue to circle 

You could probably write a Dome Dweller program using 
the list above, together with the "sample printout" informa¬ 
tion. There is, however, a secret I should like to share with 
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you which unlocks programming problems almost instantly. 
You can actually write all the vital parts of a program in 
minutes, so you can see the raw framework of a program like 
this running long before you fill in the details. And once you 
have a framework you can work on it for as long as you like, 
knowing as you do so that—at every moment in program 
development—you have a working program. You do not 
have to wait until the end until you can run it to see how you 
are going. The secret is to hold the entire program within a 
series of subroutine calls, all held within a perpetual loop. 
Here's how it could work with this program. The very first 
lines you enter in your computer are as follows: 

10 REM DOME DWELLER 
20 GOSUB 1000: REM ASSIGN VARIABLES 
30 GOSUB 2000: REM PRINT OUT STATE OF DOME 
40 GOSUB 3000: REM OXYGEN 
50 GOSUB 4000: REM FOOD 
60 GOSUB 5000: REM SCULPTURE 
70 GOSUB 6000: REM UPDATE POPULATION 
80 GOSUB 7000: REM CHECK ON STATE OF DOME 
90 IF (all conditions positive, from GOSUB 7000) THEN 
GOTO 30 

100 REM End of game . . . 

As you can see once you have the master loop set up in 
this way, it is relatively simple to fill in each of the subrou¬ 
tines one by one, testing each as you do so, and elaborating 
each one so that you end up eventually with a very good 
program. The only thing you need now is a list of the 
variables which you will use with the program. 

I find the best way to do this is to use explicit names for 
variables so that when you are programming you do not have 
to spend time checking, for example, whether AA stands for 
the population, or the number of units of oxygen used up in 
making each item of sculpture. To make programs as easy as 
possible to transfer between different computers you can 
stick to two letter variable names, or you can take advantage 
(if your computer allows it) of long names (such as OXYUSE 
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for the amount of oxygen used) for variables. Then you have 
no doubts whatsoever as to the meaning of each variable 
name. To show how this can work, and to illustrate a further 
advantage of explicit variable names, here are the variables 
used in Dome Dweller: 

FOLK—population of dome 
CASH—money in treasury 
FOOD—food stocks on hand 
FOODCOST—how much each unit of food costs 
FOODNEED—how many units of food were consumed per 
person per year 

ARTCOST—how much oxygen was used up making each 
piece of sculpture 

ARTPAY—how many dollars each piece of sculpture was 
sold for 

OXY—oxygen stocks on hand 

OXYNEED—how many units of oxygen were consumed 
per person per year 

OXYCOST—how much each unit of oxygen cost to buy 
REPAIR—the cost of annual repairs to the dome 
YEAR—the year of the dome's life 

Using explicit variable names in this way—although they 
use up more memory than single or double-letter variable 
names—makes it very simple to follow through a program, 
working out what each section of the program actually does. 
Moreover, and this is the further advantage mentioned, it is 
very easy when writing the program to insert the formula 
required for calculations. By this I mean that if, for example, 
you wished to include (as I do in this program) an indication 
of how much oxygen is needed for each year, you simply 
multiply the number of people in the dome (FOLK) by the 
number of oxygen units each person needs each year (OXY¬ 
NEED). You can then include within the printouts for the 
state of the dome a line like: 

PRINT “THERE ARE"; FOLK; "IN THE DOME" 

PRINT "IN YEAR"; YEAR 

PRINT "EACH PERSON NEEDS"; OXYNEED; "UNITS OF" 
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PRINT "OXYGEN EACH YEAR"; 

OXYNEED*FOLK;" NEEDED" 

PRINT "FOR THE WHOLE DOME" 

It also makes it very easy to check on whether purchases are 
possible. For example, to buy food, you could say: 

PRINT "HOW MUCH FOOD WILL YOU BUY?" 

INPUT A 

IF A*FOODCOST > CASH THEN GOTO (get another A) 

So the suggestions given here for improving your pro¬ 
grams by the use of "structured programming" include the 
following: 

—draw up a sample printout, or mock-up of the final 
screen display 

—draw up a list of what the program has to do each time 
through a "master control loop" 

—change this list to a series of subroutine calls 

—use explicit variable names if possible 

It is useful if you are designing programs for others to use 
to ensure that it is quite clear what the player should do 
when running the program. There is little point, especially 
when memory is limited, in including a long set of instruc¬ 
tions within the program, but you should certainly write 
such instructions down. In addition, user prompts should be 
explicit (such as ENTER THE NUMBER OF GOES YOU WANT) 
and should include warnings of the limits which will be 
placed on the input (HOW MANY CARDS WILL YOU START 
WITH: 1,2 OR 3?, for instance). 

You cannot assume that you will be present every time a 
program is run, so you should do your best to make it as 
foolproof as possible. If you can, add error-trapping rou¬ 
tines to the program to ensure that a mistake in entering a 
choice earlier on in the program will not cause it to crash or 
come up with stupid results later on. 
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If you read through this section of the book several times 
and try to apply the ideas to your own programming work, 
you should find your work quality improves significantly, 
and also that you can spend more time improving and 
embellishing a program and less in the raw mechanical task 
of getting the thing running. 
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A 

Accumulator—the place within the computer in which 
arithmetic computations are performed and where the 
results of these computations are stored. 

Algorithm—the series of steps the computer follows to solve 
a particular problem. 

Alphanumeric—this term is usually used in relation to a 
keyboard, as in "it is an alphanumeric keyboard", which 
means that the keyboard has letters as well as numbers. It 
is also used to refer to the "character set" of the computer. 
The character set comprises the numbers and letters the 
computer can print on the screen. 

ALU (Arithmetic/Logic Unit)—the part of the computer which 
does arithmetic (such as addition, subtraction) and where 
decisions are made. 

AND—a Boolean logic operation that the computer uses in 
its decision-making process. It is based on Boolean alge¬ 
bra, a system developed by mathematician George Boole 
(1815-64). In Boolean algebra the variables of an expres¬ 
sion represent a logical operation such as OR and NOR. 

ASCII—stands for American Standard Code for Information 
Exchange, the most widely used encoding system for 
English language alphanumerics. There are 128 upper and 
lower case letters, digits and some special characters. 
ASCII converts the symbols and control instructions into 
seven-bit binary combinations. 

Assembler—a program which converts other programs writ¬ 
ten in assembly language into machine code (which the 
computer can understand directly). Assembly language is 
a low level programming language which uses easily mem- 
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orized combinations of two or three letters to represent a 
particular instruction which the assembler then converts 
so the machine can understand it. Examples of these are 
ADD(add), and SUB (subtract). A computer programmed 
in assembly language tends to work more quickly than one 
programmed in a higher level language such as BASIC. 


B 

BASIC—an acronym for Beginners All-Purpose Symbolic In¬ 
struction Code. It is the most widely used computer 
language in the microcomputer field. Although it has been 
criticized by many people, it has the virtue of being very 
easy to learn. A great number of BASIC statements resem¬ 
ble ordinary English. 

Baud—named after Baudot, a pioneer of telegraphic com¬ 
munications. Baud measures the rate of transfer of infor¬ 
mation and is approximately equal to one bit per second. 

BCD—an abbreviation for Binary Coded Decimal. 

Benchmark—a test against which certain functions of the 
computer can be measured. There are a number of so- 
called "standard Benchmark tests," but generally these 
only test speed. This is rarely the aspect of a microcompu¬ 
ter that is of most interest to the potential buyer. 

Binary—a numbering system that uses only zeros and ones. 

Bit—an abbreviation for Binary Digit. This is the smallest unit 
of information a computer circuit can recognize. 

Boolean Algebra—the system of algebra developed by mathe¬ 
matician George Boole which uses algebraic notation to 
express logical relationships (see AND). 

Bootstrap—a short program or routine which is read into the 
computer when it is first turned on. It orients the compu¬ 
ter to accept the longer, following program. 

Bug—an error in a computer program which stops the pro¬ 
gram from running properly. Although it is generally used 
to mean only a fault or an error in a program, the term bug 
can also be used for a fault in the computer hardware. 
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Bus—a number of conductors used for transmitting signals 
such as data instructions, or power in and out of a compu¬ 
ter. 

Byte—a group of binary digits which make up a computer 
word. Eight is the most usual number of bits in a byte. 


c 

CAI—Computer Assisted Instruction. 

CAL—Computer Assisted Learning. The term is generally 
used to describe programs which involve the learner with 
the learning process. 

Chip—the general term for the entire circuit which is etched 
onto a small piece of silicon. The chip is, of course, at the 
heart of the microcomputer. 

Clock—the timing device within the computer that syn¬ 
chronizes its operations. 

COBOL—a high level language derived from the words 
Common Business Orientated Language. COBOL is de¬ 
signed primarily for filing and record-keeping. 

Comparator—a device which compares two things and pro¬ 
duces a signal related to the difference between the two. 

Compiler—a computer program that converts high level 
programming language into binary machine code so the 
computer can handle it. 

Complement—a number which is derived from another ac¬ 
cording to specified rules. 

Computer—a device with three main abilities or functions: 

1) to accept data 

2) to solve problems 

3) to supply results 

CPU—stands for Central Processing Unit. This is the heart of 
the computer's intelligence, where data is handled and 
instructions are carried out. 

Cursor—a character which appears on the TV screen when 
the computer is operating. It shows where the next char¬ 
acter will be printed. On a computer there are usually 
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"cursor control keys" to allow the user to move the cursor 
around the screen. 


D 

Data—information in a form which the computer can pro¬ 
cess. 

Debug—the general term for going through a program and 
correcting any errors in it, that is, chasing down and 
removing bugs (see Bug). 

Digital Computer—a computer which operates on informa¬ 
tion which is in a discrete form. 

Disk/Disc—this is a magnetically sensitized plastic disk, a 
little smaller than a single play record. This is used for 
storing programs and for obtaining data. Disks are consid¬ 
erably faster to load than a cassette of the same length 
program. The disk can be searched very quickly while a 
program is running for additional data. 

Display—the visual output of the computer, generally on a 
TV or monitor screen. 

Dot Matrix Printer—a printer which prints either the listing of 
a program or that which is displayed on the TV screen. 
Each letter and character is made up of a number of dots. 
The higher the number of dots per character the finer the 
resolution of the printer. 

Dynamic Memory—a memory unit within the computer 
which "forgets" its contents when the power is turned off. 


E 

Editor—this term is generally used for the routine within the 
computer which allows you to change lines of a program 
while you are writing it. 

EPROM—stands for Erasable Programmable Read-Only 
Memory. This is like the ROM in the computer, except that 
it is fairly easy to load material into an EPROM and it 
doesn't disappear when you turn the power off. EPROMs 
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must be placed in a strong ultra violet light to erase them. 

Error Messages—the information given by a computer where 
there is a fault in the coding during a part of a program, 
usually shown by the computer stopping, and printing a 
word, or a word and numbers, or a combination of num¬ 
bers only, at the bottom of the screen. This tells you what 
mistake has been made. Common mistakes include using 
the letter O instead of zero in a line, or leaving out a pair of 
brackets, or one of the brackets, in an expression, or 
failing to define a variable. 


F 

File—a collection of related items of information organized 
in a systematic way. 

Floppy Disk—a relatively cheap form of magnetic disk used 
for storing computer information, and so named because 
it is quite flexible (see Disk/Disc). 

Flow Chart—a diagram drawn up before writing a program, 
in which the main operations are enclosed within rectan¬ 
gles or other shapes and connected by lines, with arrows 
to represent loops, and decisions written at the branches. 
It makes writing a program much easier because traps 
such as infinite loops, or non-defined variables can be 
caught at an early stage. It may not be worth writing a flow 
chart for very short programs, but generally a flow chart 
aids in creating programs. 

Firmware—there are three kinds of "ware" in computers: 
software "temporary" programs; hardware like the ROM 
which contains permanent information; and firmware in 
which the information is relatively permanent, as in an 
EPROM (see EPROM). 

Flip-Flop—a circuit which maintains one electrical condition 
until changed to the opposite condition by an input signal. 

FORTRAN—an acronym for FORmula TRANslation, this is a 
high-level, problem orientated computer language for 
scientific and mathematical use. 
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G 

Gate —an electrical circuit which, although it may accept one 
or more incoming signals, only sends out a single signal. 
Graphics —pictorial information as opposed to letters and 
numbers. 


H 

Hard Copy —computer output which is in permanent form. 

Hardware —the physical parts of the computer (also see 
software and firmware). 

Hexadecimal (Hex) —a numbering system to the base sixteen. 
The digits zero to nine are used, as well as the letters A, B, 
C, D, E and F to represent numbers. A equals 10, B equals 
11, C equals 12, and so on. Hex is often used by micropro¬ 
cessor users. 

Hex Pad —a keyboard designed specifically for entering hex¬ 
adecimal notation. 

High Level Language —a programming language which allows 
the user to talk to the computer more or less in English. In 
general, the higher the level of the language (that is, the 
closer it is to English), the longer it takes for the computer 
to translate it into a language it can use. Lower level 
languages are far more difficult for human operators but 
are generally executed far more quickly. 


I 

Input —the information fed into the computer via a key¬ 
board, a microphone, a cassette or a disk. 

Input/Output (I/O Device) —a device which accepts informa¬ 
tion or instructions from the outside world, relays it to the 
computer, and then, after processing, sends the informa¬ 
tion out in a form suitable for storing, or in a form which 
could be understood by a human being. 
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Instruction—data which directs a single step in the process¬ 
ing of information by the computer (also known as a 
command). 

Integrated Circuit—a complete electronic circuit imprinted 
on a semiconductor surface. 

Interface—the boundary between the computer and a pe¬ 
ripheral such as a printer. 

Interpreter—a program which translates the high level lan¬ 
guage fed in by the human operator, into a language 
which the machine can understand. 

Inverter—a logic gate that changes the signal being fed in, to 
the opposite one. 

Interactive Routine—part of a program which is repeated 
over and over again until a specified condition is reached. 


J 

Jump Instruction—an instruction which tells the computer to 
go to another part of the program, when the destination of 
this move depends on the result of a calculation just 
performed. 


K 

K—this relates to the size of the memory. Memory is usually 
measured in 4K blocks. IK contains 1,024 bytes. 

Keyword—the trigger word in a line of programming, usually 
the first word after the line number. Keywords include 
STOP, PRINT and GOTO. 


L 

Language—computer languages are divided into three sec¬ 
tions: high level languages, such as BASIC, which are 
reasonably close to English and fairly easy for humans to 
use; low level languages, such as Assembler, that use 
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short phrases which have some connection with English 
(ADD for add and RET for return, for instance); and 
machine code which communicates more or less directly 
with the machine. 

LCD—this stands for Liquid Crystal Diode. Some computers 
such as the TRS-80 Pocket Computer use an LCD display. 

LED—this stands for Light Emitting Diode. The bright red 
numbers which are often used on watch or clock displays 
are made up of LEDs. 

Logic—the mathematical form of a study of relationships 
between events. 

Loop—a sequence of instructions within a program which is 
performed over and over again until a particular condition 
is satisfied. 


M 

Machine Language or Machine Code—an operation code 
which can be understood and acted upon directly by the 
computer. 

Magnetic Disk—see Disk and Floppy Disk. 

Mainframe—computers are generally divided into three 
groups, and the group a computer falls into depends more 
or less on its size. The TS-1000 you are using is a micro¬ 
computer; medium sized computers are known as mini¬ 
computers; and the giant computers that you sometimes 
see in science fiction movies are mainframe computers. 
Until 15 years ago mainframe computers were, in practical 
terms, the only ones available. 

Memory—there are two types of memory within a computer. 
The first is called ROM (read-only memory); this is the 
memory that comes already programmed on the compu¬ 
ter, which tells the computer how to make decisions and 
how to carry out arithmetic operations. This memory is 
unaffected when you turn the computer off. The second 
type is RAM (random access memory). This memory holds 
the program you type in at the keyboard or send in via a 
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cassette or disk. In most computers the computer "for¬ 
gets" what is in RAM when you turn the power off. 

Microprocessor—the heart of any computer. It requires pe¬ 
ripheral unit interfaces, such as a power supply and input 
and output devices, to act as a microcomputer. 

MODEM—stands for Modulator Demodulator. This is a de¬ 
vice which allows two computers to talk to each other over 
the telephone. The computers usually use a cradle in 
which a telephone receiver is placed. 

Monitor—this has two meanings in computer terms. One 
meaning is a television-like display. A monitor has no 
facility for tuning television programs, and usually the 
picture produced on a monitor is superior to that pro¬ 
duced by an ordinary television. The second meaning of a 
monitor relates to ROM. The monitor of a computer is 
described as the information it has built in when you buy 
it. This information allows it to make decisions and carry 
out arithmetic computations. 

Motherboard—a framework to which extra circuits can be 
added. These extra circuits often give the computer facili¬ 
ties which are not built-in, such as that of producing sound 
or of controlling a light pen. 

MPU—an abbreviation for Microprocessor Unit. 


N 

Nano-second—a nano-second is one thousand billionth of a 
second, the unit of speed in which a computer or a 
memory chip is often rated. 

Non-Volatile Memory—memory which is not lost when the 
computer is turned off. Some of the smaller computers 
such as the TRS-80 Pocket Computer have non-volatile 
memory. The batteries hold the program you enter for 
several hundred hours. 

Not—a Boolean logic operation that changes a binary digit 
into its opposite. 
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Null String—a string which contains no characters. It is 
shown in the program as two double quote marks, without 
anything between them. 

Numeric—pertaining to numbers as opposed to letters (that 
is, alphabetic). Many keyboards are described as being 
alphanumeric which means both numbers and letters are 
provided. 


o 

Octal—a numbering system which uses eight as the base, 
and the digits 0,1, 2, 3, 4, 5, 6 and 7. The Octal system is 
not used very much nowadays in microcomputer fields. 
The Hexadecimal system is more common (see Hexadeci¬ 
mal). 

Operating System—the software or firmware generally pro¬ 
vided with the machine that allows you to run other 
programs. 

OR—an arithmetic operation that returns a 1, if one or more 
inputs are 1. 

Oracle—a method of sending text messages with a broadcast 
television signal. A teletext set is required to decode the 
messages. 

Output—information or data fed out by the computer to 
such devices as a TV-like screen, a printer or a cassette 
tape. The output usually consists of the information which 
the computer has produced as a result of running a 
program. 

Overflow—a number too large or too small for the computer 
to handle. 


P 

Pad—see Keypad. 

Page—often used to refer to the amount of information 
needed to fill one TV screen, so you can talk about seeing 
a page of a program, the amount of the listing that will 
appear on the screen at one time. 
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PASCAL—a high level language. 

Peripheral—anything which is hooked onto a computer, for 
control by the computer, such as a disk unit, a printer or a 
voice synthesizer. 

Port—a socket through which information can be fed out of 
or in to a computer. 

Prestel—the British telecom name for a system of calling up 
pages of information from a central computer via the 
telephone and displaying them on a television screen. A 
similar commercial version in the United States is known 
as The Source. 

Program—in computer terms program has two meanings. 
One is the list of instructions that you feed into a compu¬ 
ter, and the second is used as a verb; as in "to program a 
computer." 

PROM—stands for Programmable Read Only Memory. This 
is a device which can be programmed, and once it is then 
the program is permanent (see also EPROM and ROM). 


R 

Random Access Memory (RAM)—the memory within a com¬ 
puter which can be changed at will by the person using the 
computer. The contents of RAM are usually lost when a 
computer is turned off. RAM is the memory device that 
stores the program that you type in and also stores the 
results of calculations in progress. 

Read-Only Memory (ROM)—in contrast to RAM, information 
in ROM cannot be changed by the user of the computer, 
and the information is not lost when the computer is 
turned off. The data in ROM is put there by the manufac¬ 
turers and tells the computer how to make decisions and 
how to carry out arithmetic computations. The size of 
ROM and RAM is given in the unit K (see K). 

Recursion—the continuous repetition of a part of the pro¬ 
gram. 

Register—a specific place in the memory where one or more 
computer words are stored during operations. 
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Reserved Word—a word that you cannot use for a variable in 
a program because the computer will read it as something 
else. An example is the word TO. Because TO has a 
specific computer meaning, most computers will reject it 
as a name for a variable. The same goes for words like 
FOR, GOTO and STOP. 

Routine—this word can be used as a synonym for program, 
or can refer to a specific section within a program (see also 
Subroutine). 


s 

Second Generation—this has two meanings. The first applies 
to computers using transistors, as opposed to first genera¬ 
tion computers which used valves. Second generation can 
also mean the second copy of a particular program; subse¬ 
quent generations are degraded by more and more noise. 

Semiconductor—a material that is usually an electrical insula¬ 
tor but under specific conditions can become a conductor. 

Serial—information which is stored or sent in a sequence, 
one bit at a time. 

Signal—an electrical pulse which is a conveyor of data. 

Silicon Valley—the popular name given to the area in Califor¬ 
nia where many semiconductor manufacturers are lo¬ 
cated. 

SNOBOL—a high level language. 

Software—the program which is entered into the computer 
by a user which tells the computer what to do. 

Software Compatible—this refers to two different computers 
which can accept programs written for the other. 

Static Memory—a non-volatile memory device which retains 
information so long as the power is turned on, but does 
not require additional boosts of power to keep the mem¬ 
ory in place. 

Subroutine—part of a program which is often accessed many 
times during the execution of the main program. A sub¬ 
routine ends with an instruction to go back to the line after 
the one which sent it to the subroutine. 
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T 

Teletext—information transmitted in the top section of a 
broadcast television picture. It requires a special set to 
decode it to fill the screen with text information. Teletext 
messages can be transmitted by cable or over phone lines. 
Examples of this are the Prestel service in Britain and The 
Source in the United States. 

Teletype—a device like a typewriter which can send informa¬ 
tion and also receive and print it. 

Terminal—a unit independent of the central processing unit. 
It generally consists of a keyboard and a cathode ray 
display. 

Time Sharing—a process by which a number of users may 
have access to a large computer which switches rapidly 
from one user to another in sequence, so each user is 
under the impression that he or she is the sole user of the 
computer at that time. 

Truth Table—a mathematical table which lists all the possible 
results of a Boolean logic operation, showing the results 
you get from various combinations of inputs. 


u 

UHF—Ultra High Frequency (300-3000 megaHertz). 

Ultra Violet Erasing—Ultra violet light must be used to erase 
EPROMs (see EPROM). 


V 

Variable—a letter or combination of letters and symbols 
which the computer can assign to a value or a word during 
the run of a program. 

VDU—an abbreviation for Visual Display Unit. 

Volatile—refers to memory which "forgets" its contents 
when the power is turned off. 
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w 

Word—a group of characters, or a series of binary digits, 
which represent a unit of information and occupy a single 
storage location. The computer processes a word as a 
single instruction. 

Word Processor—a highly intelligent typewriter which allows 
the typist to manipulate text, to move it around, to justify 
margins and to shift whole paragraphs if necessary on a 
screen before outputting the information onto a printer. 
Word processors usually have memories, so that standard 
letters and the text of letters, written earlier, can be 
stored. 
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Compiled by Tim Hartnell 


The A to Z Book of Computer Games (Mclntire, Thomas C., 
Tab Books, Blue Ridge Summit, Pa.). 

This is a fine Tab book to give you program ideas and 
ready-to-run programs, although some of the games are a 
disappointment, such as the overly long Othello program 
which does not even play, but simply records the moves 
made by two human players. Others, however, such as 
Fivecard and Hotshot, are well written, and well worth 
entering into your microcomputer. 

BASIC Computer Games (ed. Ahl, David, Creative Computing 
Press, Morristown, New Jersey). 

This is a classic work, the source of more programming 
ideas than any other computer games book ever pub¬ 
lished. I had a meal with David Ahl one night in London 
after a PCW show and discussed the book. He said that 
he'd been in the personal computer field almost before 
there were personal computers, and while many of the 
games in this book do not seem startling now, the fact that 
people could write and play games for computer interac¬ 
tion at all seemed quite incredible in the late seventies. 
The Checkers program and Life for Two are just a couple of 
the treasures you will find in this splendid program and 
idea source book. 

BASIC Computer Programs for the Home (Sternberg, Charles 
D., Hayden Book Company, Inc., Rochelle Park, New Jersey). 
Traditionally, home computers (when first purchased) 
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have been used for playing games. One reason why they 
have not been used for more serious applications stems 
from the lack of a readily available, comprehensive set of 
home applications programs that were easy to use and 
understand and that satisfied the practical requirements of 
the home. This book provides a set of programs to make 
your computer start earning its keep. The programs pro¬ 
vide a good cross-section of practical applications; these 
have been designed so as not to rely upon the availability 
of tape or disk-storage devices. The programs cover a wide 
field, and are divided into a number of sections: home 
financial programs (including household expenses and 
income tax recording); car related programs (including 
fuel use and trip planning); "Kitchen Helpmates" (includ¬ 
ing diet and meal planning programs); scheduling pro¬ 
grams for home use (including a reminder calendar and a 
couple of programs which I imagine are designed to short 
circuit arguments about which television programs will be 
watched); and "List programs for every purpose" (includ¬ 
ing Christmas cards, music collections and three versions 
of an address program). 

The BASIC Handbook (Lien, David A., Compusoft Publishing, 

San Diego, California). 

This is an encyclopedia of the BASIC language. Now that 
BASIC is so firmly established throughout the microcom¬ 
puter world, it is necessary to make its many dialects 
understandable so that programs can be transported be¬ 
tween different computers. When you have found exactly 
the program you've been looking for, it is very frustrating 
to be unable to run it on your computer. This book 
addresses that problem by discussing in detail just about 
every commonly used BASIC statement, function, opera¬ 
tor and command. For the most part, BASIC words mean 
the same thing to every computer which recognizes them. 
If a computer does not possess the capabilities of a 
needed or specified word, there are often ways to accom¬ 
plish the same function by using another word, or combi¬ 
nation of words. Although the handbook requires some 
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application to transform the information into usable form, 
it is a very valuable reference work indeed. Every BASIC 
word you have ever heard of (and many you may not have 
heard of, such as LE, NE, COTO-OF, RES and TIME) is 
probably in the book. It may be of limited use to you in 
your early days of computing, but it should become an 
indispensable handbook once you get more involved in 
the subject. 

Beat the Odds, Microcomputer Simulations of Casino Games 

(Sagan, Hans, Hayden Book Company, Inc., Rochelle Park, 

New Jersey). 

The book explains how to play certain casino games 
(trente-et-quarante, roulette, chemin-de-fer, craps and 
blackjack) and gives complete program listings in BASIC 
with commentaries on systems and optimal strategies. 
Professor Sagan (Professor of Mathematics at North Caro¬ 
lina State University) says he wrote the book in an attempt 
to convince people that, in the long run, they could not 
win—except possibly at blackjack—and to explain some 
popular systems and their pitfalls, and above all to provide 
very realistic computer simulations of the games them¬ 
selves. He has succeeded in his attempt. The listings are 
possibly longer than other computer versions of the same 
games, but this is because the Sagan versions strictly 
duplicate the odds involved in playing the game "in real 
life", and cover all the eventualities that a real game can 
produce. The programs are well-structured, and an exami¬ 
nation of the listings should give you ideas for improving 
your own programming. 

The Calculator Game Book for Kids of All Ages (Hartman, 

Arlene, Signet Books, New York). 

The book's title says it all, and the names of the games 
(which include Fibonacci Follies, Stretch to Sixty and 
Casting Out 9s) suggest the book's contents. There are 
some worthwhile brain-stretching puzzles, and 15 or so 
ideas definitely calling for conversion to computer games. 

33 Challenging Computer Games for TRS-80/Apple/PET 

(Chance, David, Tab Books, Blue Ridge Summit, Pa.). 
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Even if you don't have any of the three computers named 
in the title, you will still find the book a goldmine of ideas 
for your own development, and many of them will run, 
with minimal alteration, on any BASIC-using computer. 
Particularly commendable programs are Life Support, 
Scrambled Eggs and Tank Assault. 

Communicating with Microcomputers (Witten, Ian H., Aca¬ 
demic Press, London). 

This is an introduction to the technology of man/computer 
communications for the non-specialist. By placing particu¬ 
lar emphasis on low-cost techniques associated with small 
systems and personal computers, the reader's attention is 
focused on the positive nature of the "microprocessor 
revolution"—how machines can help people—rather than 
the negative aspects which are often highlighted in the 
non-technical press. The level of the book is suitable for 
the layman with some acquaintance with electronics. The 
final section, on speech communication, provides the 
most fascinating reading. 

Computer Games for Businesses, Schools and Homes (Nahi- 
gian, J. Victor and Hodges, William S., Winthrop Publishers 
Inc., Cambridge, Mass.). 

Some of the programs are a little thin for the size and price 
of the book, but the best ones are well worth adapting to 
run on your computer. The inclusion of long, clear sample 
run printouts ensures that you know exactly what the 
programs will do before you run them. The Tennis and Star 
Trek programs are especially good. 

Games for Home, Travel and Parties (Jensen, Helen, Western 
Publishing Company Inc., Racine, Wisconsin). 

Aimed squarely at children, this book gives some games 
which are simple to program (these include Snakes, Lift- 
Off and Fish), and contains a complete chapter on how to 
play chess. 

Home Computers, Questions and Answers, Hardware (Didday, 
Rich, dilithium Press). 

The book has two main purposes. First, it is intended to 
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give readers a real feeling for what is involved in home 
computing, so that they can make rational decisions be¬ 
fore buying equipment. Second, it is intended to give 
people who have no specialized knowledge of computing 
a general background to the subject, and specifically to 
microcomputers. The book succeeds in imparting enough 
information to ensure you will have little trouble under¬ 
standing articles about advanced projects in computer 
hobby magazines, advertisements for home computing 
equipment, or other people who do have advanced com¬ 
puter knowledge. 

Inside BASIC Games (Mateosian, Richard, Sybex). 

This book is a guide, albeit a slightly overwritten one, for 
anyone who wishes to understand computer games. You 
will learn how to write interactive programs in BASIC and 
how the principles of systems development are applied to 
small computers. The book also looks at how the features 
of specific small computer systems have been supported 
in BASIC. The sections of the book include: Arithmetic 
Games, Guessing Games, Time Games, Date Games, Tax- 
man, and programming in "Free BASIC": a structured 
BASIC that is translated manually into the actual BASIC 
instructions to be entered into the computer. Free BASIC 
is not a language; it is a program description medium (like 
flow charts) that has no line numbers, and uses symbolic 
names for subroutines. Additional chapters look at The 
Match-Up Game, Craps and Alien Life. If you can contend 
with the verbiage, you will find this book well worthwhile. 

An Introduction to Personal and Business Computing (Zaks, 

Rodnay, Sybex). 

I had lunch with Rodnay in London during a PCW show 
and he told me that he thought current American predic¬ 
tions on the growth of the personal computer field were 
grossly pessimistic. He pointed out that the predictions 
current in 1978, when he wrote this book, have been 
proved so inaccurate that would-be prophets should take 
warning and assume that whatever they say will be wrong 
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by a factor of 10 or 100. Despite its age—and computer 
books do age uncommonly quickly—this book is a good 
introduction to the field, explaining in clear, snappy En¬ 
glish the fundamentals of computer operation. Dr. Zaks 
also gives suggestions on what to look for when buying a 
computer. 

Microsoft BASIC (Knecht, Ken, dilithium Press, Forest Grove, 
Oregon). 

This book presents a complete introduction to program¬ 
ming in Microsoft BASIC. The concepts presented are 
illustrated with short, working programs. By starting with 
the simplest and most commonly used commands, and 
then progressing on to the more complex BASIC com¬ 
mands, Mr. Knecht shows how the more powerful ver¬ 
sions of the language can save valuable programming time 
and effort. 

57 Practical Programs and Games in BASIC (Tracton, Ken, Tab 
Books, Blue Ridge Summit, Pa.). 

There are more serious programs than games (of the Chi- 
Square Evaluation and Fibonacci Numbers variety) in this 
book. They are well programmed, and supported by ade¬ 
quate (if brief) documentation, and by flow charts. The 
Space Wars programs (versions one and two) at the end of 
the book are particularly good. 

Problems for Computer Solution (Rogowski, Stephen J., Crea¬ 
tive Computing Press, Morristown, New Jersey). 

This outlines over 50 simple (and a few not-so-simple) 
problems which can be solved by writing a program. There 
are both teacher and student editions of this book; the 
teacher edition has a suggested program and sample run 
printout to solve the difficulty. It is an excellent source for 
educational ideas. 

Stimulating Simulations (Engel, C. W., Hayden Book Com¬ 
pany, Inc., New Jersey). 

Here, according to the cover, are "12 unique programs in 
BASIC for the computer hobbyist." Inside you will find 
some fascinating programs: Forest Fire, Rare Birds and 
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The Devil's Dungeon are three you are sure to enjoy 
playing, while Diamond Thief (the computer decides who 
has committed the crime, then challenges you to discover 
which of the suspects is guilty) is both well written and 
tightly programmed. 

TAKE TWO! 32 Board Games for 2 Players (Tapson, Frank, A & 
C Black, London). 

This book is aimed at children, but it does give many 
fascinating ideas that could be transformed into computer 
games (even if some of them are duplicated elsewhere in 
the book). 

24 Tested, Ready-to-Run Game Programs in BASIC (Tracton, 
Ken, Tab Books, Blue Ridge Summit, Pa.). 

Tab Books are prolific publishers in the microcomputer 
program field, and their books are deservedly successful. 
If nothing else, reading a book such as this one will give 
you ideas for structuring programs neatly, and for writing 
them to ensure the maximum compatibility between dif¬ 
ferent versions of BASIC. Many of the games, such as Auto 
Rally and Capture the Alien, are (despite their weak titles) 
well thought out, carefully constructed programs. 

1001 Things to Do with Your Personal Computer (Sawush, 
Mark, Tab Books, Blue Ridge Summit, Pa.). 

I bought this book at a computer fair in Atlanta, and read it 
(making notes, and turning down page corners) on the 
flight to London. And I still hadn't finished it on arrival. If 
you feel you have come to the end of possible applications 
for your computer, buy this book and discover that you 
have barely scratched the surface. It tells you about writ¬ 
ing music and stories, aiding a mechanic or a carpenter, 
solving simultaneous equations, astrology, and much, 
much more. 

The World Computer Chess Championship (Hayes, Jean E., and 
Levy, David N. L., Edinburgh University Press, Edinburgh). 
This is a fascinating account of the world's first machine 
versus machine chess championship, held in 1974, when 
the dozen or so computer programs taking part were the 
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only chess programs in existence. The games are analyzed 
in detail, and the final section of the book outlines a 
board-numbering system which you could use if you're 
considering writing your own chess program. The book 
makes you realize how far the computer world has come 
in only a few years. 




















































